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は じ め に 


みな さん が , 数 多く の 機種 の な か か ら X68000 を 選択 し た 理由 は 何で し ょ うか . ゲ ー ム セン ター 
な み の す ば らし い ゲ ー ム ソフ ト を 楽し むこ と が で きる か ら で す か . 68000CPU を 使っ て プロ グラ 
ミン グ し て な みな た いか ら で す か 、 

た し か に X68000 の ゲー ム は すばらし く , 他 の パソ コン で は 味わう こと の で き な い 臨場 感 を 得 
る こと が で きま す .。 し か し , これ だ け の マシ ン を ゲー ム 専 用 機 と し て 終ら せ て し まう の は 非常 に 
も っ た いな い 話 で す 。 プ ログ ラミ ング の た め の 環 境 も , 他 の パソ コン で は 味わう こと の で き な い 
特徴 を も っ て いる こと に 気づい て いた だ きた いと 思い ます 。 

本 書 は , X68000 で プロ グラ ミン グ を 楽し ん で みよ うと 考え て いる 方 を 対象 に 。 これ まで は と り 
あげ られ る こと が 少な か っ た プロ グラ ミン グ の 環境 を テー マ と する こと で , より 効率 的 な プロ グ 
ラミ ング に 役立て て いた だ けれ ば ,。 と いう 意図 で 企画 きれ ん た も の で す . 

X68000 プロ グラ ミン グ 環 境 で 特筆 で きる の は , つぎ の よう な 点 で し ょ う . 


・C 言語 ライ ク な 仕様 を 持つ X-BASIC 
・-BASIC で 書か れ た ソー スプ ログ ラム を CC 言語 に 変換 する BASTOC コン バー タ 


わずか これ だ け の 工夫 (プロ グラ ミン グ 言 語 間 の 橋渡し ) が され て いる だ け で 。 X68000 の プロ 
グラ ミン グ 環 境 は 大 きく 向上 し て いま す . つま り 。, 災 -BASIC か ら 実 行 フ ァイル を 作る まで の 過程 
が 垂直 方 向 に つなが る た め , 1 つの アプ リケーション を 構成 する それ ぞ れ の 関数 や モジ ュー ル 単 
位 で の 言語 の 使い 分 けが で きる わけ で す ., で すか ら 。C 言語 だ け で は 難し か っ た グラ フィ ックス や 
サウ ンド の 扱い も きわ め て 容易 に な っ て いま すし , な に より , 実行 テス ト を し な が ら プ ログ ラミ 
ング を すす め る こと が で きる と いう 。 イ ンタ ー プ リタ な ら で は の メリ ッ ト も あり ます . 

そし て ,。 本 書 で は も う 1 つ の “ 橋 を 提供 する こと に し ます . それ は X-BASIC の 外部 関数 を 
作る た め の ツ ー ル “MKB" で す .。 この ツー ル を 使え ば ,。 どの よう な 言語 で 書い た 関数 で も か ん た 
ん に 外部 関数 化す る こと が で きま すか ら , C 言語 の ライ ブラ リ を 作る の と 同じ 作業 を X-BASIC 
に 対し て 行う こと が で きる わけ で す . 

本 書 は 。 こ の よう に 統合 化 さ れ た 環境 を 紹介 する こと を 主眼 と する と と も に , MS-DOS か ら の 
ソフ トウ ェ ア の 移植 法 , Human68k の 解析 な ど , X68000 の ユー ザー な ら ぜ ひと も 知り た い 情 報 も 
盛り 込ん で あり ます . 

本 書 に よっ て , X68000 で プロ グラ ミン グ を 楽し む 方 が 一 人 で も ふえ ん こと を 願っ て お り ま す 。 

未 筆 に な り ま し た が , 本 書 の 執筆 に あたり ハー ドウ ェ ア ,。 ソフ トウ ェ ア の ご 提供 を いた だ きま 
し た シャ ー プ 株 式 会 社 に 感謝 の 意 を 表し た いと 思い ます . 


1988 年 11 月 1 日 著者 一 同 


本 書 を 読む まえ に 


本 書 は . それ ぞ れ の テー マ ご と に 7 つの 章 か ら 構 成 き され て いま す の で 。 興味 の ある 章 か ら 読 み 
始め る こと が で きま す . 各 章 で 扱う テー マ と 。 あら か じ め 必 要 な 知識 に つい て か ん た ん に まとめ 
て お きま す 。 


1 章 X68000 の プロ フィ ー ル 

X68000 の ハー ド ウェア, ソ フトウェア の 概要 を 紹介 し て いま す . 68000CPU の 基礎 知識 。 メモ 
リマ ッ プ , ソフ トウ ェ ア 構 成 等 を 知る こと が で きま す . 一 般 的 な コン ピュ ー タ の 基礎 知識 (86 系 
CPU や MS-DOS な どの 知識 ) を 必要 と し ます . 


2 草 オペ レー ティ ング シス テム Human68k 

X68000 標準 の DOS で ある Human68k に つい て の 解析 を 行っ て いま す 。 Human68k は , MS 
-DOS と 良く 似 た DOS で す が 。 細部 で は 異な っ て いる 部 分 も あり ます .。 こ の 草 で は 。 そ うし た 相 
違 点 に も 注意 を 払っ て 解説 し て いま す . MS-DOS に つい て の 比較 的 深い 知識 が 必要 で す . 


3 章 X-BASIC プロ グラ ミン グ ガ イド 
これ まで の 多く の パソ コン に 搭載 され て いた Microsoft 系 BASIC の 知識 を 前 提 と し て , 
X68000 オリ ジ ナ ル の X-BASIC の 使い 方 を 解説 し て いま す . 


4 章 X68000 の プロ グラ ミン グ 環 境 

X68000 上 で の プロ グラ ミン グ の 際 に どう し て も 必要 な ソフ トウ ェ ア パ ッ ケ ー ジ “C Compiler 
PRO-68k” に 用 意 さ れ て いる 環境 を 紹介 し て いま す . と くに 膨大 な ライ ブラ リ 群 の 概要 を 解説 し 
て いま すす ので, 付属 の リフ ァ レ ンス マニ ュ ア ル を 開く まえ に 読ん で いた だ きた い草 で す 。C 言語 に 
つい て の 一 般 的 な 知識 が 必要 で す . 


5 章 X68000 らし い プ ログ ラミ ング 

X68000 の 環境 を 活か し た プロ グラ ミン グ を する た め の テ クニ ッ ク を 紹介 し て いま す 。 自分 で 
書い た 関数 を か ん た ん に X-BASIC の 外部 関数 に する た め の ツ ー ル “MKB” も ここ で 紹介 し て い 
ます . CC 言語 。X-BASIC の 知識 。 ア セン ブラ に つい て の か ん た ん な 知識 が 必要 で す . 


6 章 周辺 の ソフ トウ ェ ア 

プロ グラ ム 開 発 に 欠か すこ と の で き な い エディ タ 。 X-BASIC の 関数 を か ん た ん に 増設 する た 
め の 拡 張 関 数 パッ ケー ジ , そし て 優良 プロ グラ ム の 宝庫 で ある パブ リッ ク ド メ イン ・ ソ フト ウェ ア 
に つい て 紹介 し て いま す . 


本 書 を 読む まえ に 


7 章 MS-DOS か ら の ソフ トウ ェ ア 移 植 

これ まで MS-DOS の 環境 で プロ グラ ム を 書い て きた 方 は 。 それ ら の プロ グラ ム を X68000 に 
移植 し た いと 考え る で し ょ う . この 章 で は , MS-DOS か ら の 移植 時 に 注意 し な けれ ば な ら な い 点 
に つい て 解 計 し て いま す . 


な お 。 4 章 。 5 章 は 。 ソフ トウ ェ ア パ ッ ケ ー ジ “C Compiler PRO-68k" を お 持ち で ある こと 
を 前 提 と し て いま す . これ ら の 章 を お 読み に な る 方 は 。 あら か じ め こ の パッ ケー ジ を 購入 きれ る 
こと を お 勧め し ます . 


サン プル プロ グラ ム の 入力 に つい て 
本 書 で は 。 サン プル プロ グラ ム の リス ト を 2 種類 の 方 法 で 掲載 し て いま す . それ ぞ れ , 入力 時 
の 注意 点 を あげ て お きま す の で 。 誤り の な いよ うに 入力 し て くだ さい 、。 


< X- 日 AIC の 行 番号 の ある プロ グラ ムリ スト ッ > 


1999 int x(255) = { 48, 47, 46, 45, 44 } 
1919 jnt y(255) = { 12, 12, 12, 12, 12 .} 


1929 int d,Ex,Ey,h,i,tail = 4,tmpx,tmpy, xl,y1 
1939 char c=M 


1949 randomize(val(right$(time$,2))) 
1959 locate ,,9 

1969 cls 

1979 gosub 1519 





X-BASIC を 起動 きせ, 行 番号 か ら 入 力 し て くだ さい . な お , この 形式 で 掲載 し た プロ グラ ム は , 
行 番号 に 依存 し た プロ グラ ム な の で , renum 命令 で 行 番号 の つけ 替え を 行う と 正しく 動作 し な く 
な る 場合 が あり ます . また ,。 メモ リ 中 に すでに プロ グラ ム が 置か れ て いる と 正しく 動作 し な い の 
で 。 入力 する まえ に new 命令 を 実行 し て お く の が 望ま し いで し ょ う . 


< プリ ント アウ ト 時 の 行 番号 の ある プロ グラ ムリ スト ッ > 


・ int x(255) = { 
: int y(255) = 【 
・ int Ex,Ey,tajil 
: Tandomize(val(r 
・char c=B 

・ locate ,,D 

s Clg 

: Write_Border() 


48, 47, 46, 45, 44 } 
謗 1 12 8。18 3 
1 


4 
ght$(time$,2))) 


1 
の 
S 
4 
5 
6 
7 
8 





Human68k 上 の エディ タ (ED.X,。windex 等 ) で ヾ : ” (コロ ン ) より 後ろ の 文字 を 入力 し て く 
だ さい ( 行 番号 を つけ ず に 入力 する ). 入力 中 の 行 番号 を 表示 で きる 機能 を エディ タ が 持っ て いれ 
ば 。 プロ グラ ムリ スト 中 の 行 番号 を 参照 し な が ら 入 力 で きま す の で , 入力 ミス な ど を 減ら すこ と 
が で きま す . 


本 書 を 読む まえ に 


コン バル イル を 行う まえ に 
本 書 で 掲載 し た プロ グラ ム を コン パイ ル す る た め に は 。 環境 変数 等 を 正しく 設定 し て お か な け 
れ ば な り ま せん . 一 般 的 に 必要 な 環境 変数 と その 意味 は つぎ の と お り で す . 


path … 実行 ファ イル の ある ディ レク トリ へ の 絶対 パス を 書き 列 ね て お く 

lib … ライ ブラ リフ ァイル の ある ディ レク トリ の 絶対 パス を 書い て お く 

include _ … イン クル ー ド ファ イル の ある ディ レク トリ の 絶対 パス を 書い て お く 

tmp … コン パイ ル 時 の テン ポラ リフ ァイル (一 時 ファ イル ) を 書き 出す ディ レク トリ 
を 書い て お く 


な お , 本 書 に 掲載 され て いる プロ グラ ム を コン パイ ル す る た め の コ マン ドラ イン も あわ せ て 表 
記し て あり ます が , これ ら は 目的 の ソー ス フ ァ イル が カレ ント ディ レク トリ に , ライ ブラ リ は 環 
境 変数 ib の 示す ディ レク トリ に ある こと を 想定 し た も の に な っ て いま す . これ ら は 実際 の ディ 
レク トリ 構成 に よっ て ,。 変更 し な けれ ば な り ま せん の で ,。 注意 し て くだ さい . 

また , 本 書 に 掲載 され て いる サン プル プロ グラ ム の うち 。 3 章 の ADPCM エディ タ と 5 章 の グ 
ラフ ィ ッ クエ ディ タ は, C Compiler PRO-68k Ver.1.00 で は コン パイ ル す る こと が で きま せん 
CCompiler PRO-68k の ユー ザー 登録 カー ド を シャ ー プ 株 式 会 社 に 返送 し て あれ ば 。 バ ー ジ ョ ン 
グッ プ ・ サ ービス を 受け る と と が で きま す の で , か な ら ず Ver.1.01 に パー ジョ ン ア デップ し て お い 
で く 定 きい 。 


アス キー 出版 局 か ら の お し ら せ 
本 書 を 理解 する た め に は ,。 サン プル プロ グラ ム を 実行 し て みる の が 一 番 で す 。 そこ で 。 


掲載 され た プロ グラ ム を を フロッピー ディ スク に 収録 し た “アス キー・ デ ィ ス クア ル バ ム 
30" を 用 間 し まし た 。 ゼ ぜひ 。 ご 活用 くだ さい 。 


Human68k 版 5 イン チ 2HD 価格 4.800 円 送料 400 円 
(表示 価格 に は 消費 税 は 含ま れ て お り ま せん ) 
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XBBDDO の プ ブ ロフ ィ ー ル 


| シャ ー ー ブ の XBBOOO は , 卓越 し た グラ フィ ックス と サウ ンド 
| 画面 エリ ア 機能 を 内 蔵 し た ユニ ー ク な マシ ン で す . すでに , これ ら の 機能 を 活 
- - か し た アプ リケーション ソフ ト も も 発売 され て お り , 他 の バ パソ コン で 
:“ は まね の で き な い よう な 利用 環境 が 提供 され て いま す . 
La また , 頭脳 部 分 に は , BBDOO と いう ご PU が 採用 され て いる 
こと か ら , プロ グラ ミッ ダ を と ご ころ ざす ユー ザー に と っ て も 非常 
* | 興味 を そそ られ る マシ ン だ と いえ る で し ょ う . 


5 。 。。。 それ で は , XBBOOO の 特徴 を 紹介 し て いく こと に し まし ょ う . 
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1 サウ ン 





|I-| ハー ドウ ェ ア に 見 る 特徴 


1.1 ハー ドウ ェ ア に 見 る 特徴 


X68000 は これ まで の パー ソナ ルコ ンピュータ と は ひと 味 違 う 独 特 な 形 を し て いま す ( 写 真 1.1). 
本 体 は ,。 2 つの タワ ー か ら 構 成 さ れ て お り , 正面 か ら 見 て 右側 の タワ ー に は , CPU や 周辺 LSI な 
ど が 載っ た メイ ン ボ ー ド や 外部 拡張 イン ター フェ イス が , 左側 に は 電源 ユニ ッ ト や フロ ッ ピ ー 
ディ スク ・ ド ライ ブ が 収納 され て いま す . 








写真 1.1 XB ヨ 0OO の 外観 


1.1.1 大 本 仕様 


表 1.1 を 見 る と わか る よう に ,。 CPU に は ,。 米国 Motorola 社 の 16 ビッ ト ・ マ イク ロ プ ロ セ ッ サ 
MC68000( 以 下 68000CPU と 呼ぶ ) を 搭載 し て いま す . この CPU は , 最大 16M バイ ト ま で の メ 
モリ を 直接 アド レス する こと が で き 。,。8086CPU な ど が 1M バイ ト ま で の メモ リ し か 扱え な か っ た 
こと を 考え る と , 格段 に 扱い や すく な っ て いま す . 

表示 は 最大 768X512 ドッ ト の 解像度 を も ち , 最大 65,536 色 を 同時 表示 する こと が で きま すか 
ら 。 まま で の パッ リコン と は 氏 凡 に が ならない は ほ は ビリ デル な グラブ ォ ィ ッ みみ を 扱う と と が で きま す 。 
さら に スプ ライ ト 画 面 を 備え を て いま すか ら , グラ フィ ッ ク パ ター ン を ドッ ト 単 位 で スム ー ズ に 移 
動き させ る こと が で きま す . 

も ちろ ん 。 サウ ンド の 機能 も 充実 し て いま す . な ん と いっ て も 興味 深い の は , アナ ログ 音声 を 
デジ タル に 変換 する ADPCM 機能 で す ,. これ は , オー ディ オ 用 の コン パク トディ スク に 使用 され 
て いる PCM 方 式 と 原理 的 に は 同じ も の で す . し か し , PCM 方 式 で 記録 され た デー タ と 比べ , 
デー タ 量 が 少な く て すむ と いう メリ ッ ト が あり ます . 

また , 8 オクターブ 8 重 和 音 の 演奏 が 可能 な FM 音源 も 搭載 され て いま す . FM 音源 は . シン セ 
サイ ザ と 同じ 原理 で 。 非常 に 美しい 音 の 演奏 を する こと が で きる 機能 で すでに ホビ ー 用 パソ コ 
ン で は 常識 と も いえ る で し ょ う . 
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| 章 X68000 の プロ フィ ー ル 


lu | eooowe 


ROM IOCS ・128K バイ ト 


CG ROM ・768K バイ ト 





メイ ン メ モリ : 1M バイ ト 
テキ スト VRAM : 512K バイ ト 
グラ フィ ッ ク VRAM : 512K バイ ト 
スプ ライ ト VRAM  :32K バ イト 
スタ ティ ッ ク RAM  : 16K バ イト 


テキ スト 1024X1024 ドッ ト xX 4 プレ ー ン 
グラ フィ ッ ク 1024X1024 ドッ ト xX 4 プレ ー ン 
(512X512 ドッ ト X16 プレ ー ン ) 


久実 画面 エリ ア 1024X1024 ドッ ト 時 
高 解像度 モー ド 768X512 ド ッ ト 標準 解像度 モー ド 512X256 ドッ ト 
512X512 ドット (オー バー スキ ャ ン ) 256x<256 ドッ ト 
512X256 ドッ ト 512X512 ドット 
256X256 ドッ ト (イン ター レー ス ) 
廊 ド ッ ト 毎 に 65536 色 中 任意 の 16 色 指 定 可 能 


久実 画面 エリ ア 1024X1024 ドッ ト 時 










メモ リ 
RAM 


実 画面 エリ ア 









































表 高 解 父 度 モー ド 768X512 ド ッ ト 標準 解 父 度 モー ド 512x256 ド ッ ト 
画 512x512 ド ッ ト (オー パー スキ ャ ン ) 256x256 ドット 
面 512x256 ドッ ト 512x512 ドット 
モ 256xX256 ドッ ト (イン ター レー ス ) 
LM 娘 ド ッ ト 毎 に 65536 色 中 任意 の 16 色 指定 可能 
表 @ 実 画面 エリ ア 512x512 ドッ ト 時 
ー 高 解 像 度 モ ー ド 512X512 ド ッ ト 標準 解像度 モー ド 512X256 ド ッ ト 
』 512X256 ドッ ト (オー バー スキ ャ ン ) 256x256 ドッ ト 
能 256x256 ドッ ト 512x512 ド ッ ト 
(イデ を ジー ジー) 
カ 娘 ド ッ ト 毎 に 65536 色 中 任意 の 色 指 定 可能 (1 面 )、 ドッ ト 毎 に 65536 色 中 任意 の 
256 色 指 定 可能 (2 面 ),。 ドッ ト 毎 に 65536 色 中 任意 の 16 色 指 定 可 能 (4 面 ) 
@ バ ター ン 定 義 
サイ ズ : 16X16 ドッ ト プ パ ター ン 
定義 数 : 128 パタ ー ン (バッ ク グ ラン ド 2 面 使 用 時 ) 
192 パタ ー ン (バッ ク グ ラン ド | 面 使用 時 ) 
256 パタ ー ン (バッ ク グ ラン ド 未 使用 時 ) 
プラ マト 色 :1 パ ター ン に つき 16 色 ノ 65536 色 


信 表 示 
スプ ライ ト 座 標 系 : 1024 メ 1024 ドッ ト 
表示 画面 : 512X512 ドッ ト (バッ ク グ ラン ド | 面 表示 ) 
256x256 ドッ ト (バッ ク グ ラン ド 2 面 表示 ) 
表示 制限 : 128 スプ ライ トノ 画面 
BR スウ ラオ ド ゲラ ボ 時 


特殊 機能 スム ー ス スク ロー ルン 特殊 画面 制御 機能 ププ ライ オリ ティ 機能 
パレ ッ ト 機 能 / 半 透明 機能 ププ スーパー イン ポーズ 機能 
旨 FM 音源 : 2 チャ ン ネ ル , 8 オク ター ブ 8 重 和音 同時 出力 
サウ ント 後 能 音声 合成 : AD-PCM (Adaptive Differential PCM) 
フロ ッ ピ ー デ ィ ス ク 1M バイ ト 5 イ ンチ ・ ミ ニ フ ロ ッッ ピー ディ スク ・ ド ライ ブフ ブ (オー トロ ー ド オー トイ ジ 
ドラ イブ ェクト 機能 つき ) 2 基 搭 載 


入力 装置 マウ ス ・ ト ラッ クボ ー ル , ASCIl 準拠 フル レル キーボード 
プリ ンタ (セン トロ ニク ス 社 準拠 ) プ ジョ イス ティ ッ ク (前 面 1 個 , 背面 1 個 ) プ テレ ビ 


コン トロ ー ル アナ ログ RGB 出力 プ ゾ オ ー デ ィ オ 入出 力 グ RS-232C グ 外部 フロ ッ ピ ー デ 
ィ ス ク プ ハー ド デ ィ スク プ マ ウス プイ メー ジ 入 力 端子 立体 視 端子 な ど 


* ACE-HD モデ ル は , 20M バイ ト ハ ー ド ディ スク 内 蔵 
表 1.1 XBBO0OO の 基本 仕様 












内 蔵 イ ンタ ー フ ェ イ ス 
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I.| ハー ドウ ェ ア に 見 る 特徴 


1.1. 選 XB8000 の 周辺 機器 

X68000 の 魅力 は 本 体 装備 の 機能 だ け で は あり ませ ん . 充実 し た 周辺 装置 が 用 意 き れ て いる こ 
と も 見 逃 せ すま せん . 目的 に 応じ て 必要 な ハー ドウ ェ ア を 付加 する こと で , X68000 の 可能 性 は より 
が あみ と も で し あ 。 

現在 発売 され て いる 周辺 装置 の な か か ら 主 要 な も の を 紹介 し まし ょ う . 


田 ハー ド デ ィ スク 

X68000 を 実用 的 に 使 お うと する と , ハー ド デ ィ スク は 必需 品 だ と いえ る で し ょ う . 大 容量 と 高 
速 性 と いう 2 つの メリ ッ ト を 備え て いる ば か り で は な く , プロ グラ ム や デー タ な どの 多く の ファ 
イル の 管理 に は 。 非常 に 便利 な 記憶 装置 で す (ACE-HD モデ ル に は 内 蔵 ). 


画 浮動 小数 点 演 算 プ ロ セ ッ サ 

コン ピュ ー タ グラ フィ ックス な ど に 挑戦 し よう と する と , 計算 処理 に 時 間 が か か り ま す . その 
よう な 方 に と っ て ,。 演算 を 高速 に 実行 きせ る た め の 浮 動 小数 点 演算 プロ セッ サボ ー ド は, 強力 な 
武器 と な り ま す . 


田 払 張 |/ ユニ ッ ト 

この よう に , さま ざま な 周辺 装置 を 取り つけ て 拡張 し て いく と , X68000 背面 に ある 拡張 スロ ッ 
ト が 足り な く な っ て きま す . X68000 に は 拡張 スロ ッ ト が 2 つ し か あり ませ ん . その よう な 場合 に 
は , 拡張 I/O ユニ ッ ト を 使用 する こと で , 計 4 枚 の イン ター フェ イス を 収納 する こと が で きま す 。 








写真 1. 己 周辺 装置 
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1.1. コ XB8000 の 頭脳 


これ まで の 多く の 国産 の パソ コン で 採用 され て きた 16 ビット CPU は 。 米国 Intel 社 の 8086 ノ 
8088 と いう も の で , 現在 で は , その 上 位 で ある 80286。80386 と いう CPU を 搭載 し た パソ コン が 
主流 に な りつ つ あ り ま す . 

その 一 方 で . ワー クス テー ショ ン と 呼ば れる 比較 的 高 機能 な コン ピュ ー タ の 多く は , 米国 
IMlotorola 社 の 68000。 68020 と いう CPU を 採用 し て きま し た . X68000 は , この 68000CPU ( ク 
ロッ ク 10MHz) を 採用 し た 意欲 的 な マシン で ある と いえ る で し ょ う . 

さて 。 この 68000CPU は 。 32 ビッ ト 長 の レジ スタ を も ち 。 ア ドレ スバ ス 24 ビッ ト 。 デ ー タ バス 
16 ピッ ト の マイ グロ デ プ ロ セ ッ サ で すず (回 1.1)。 


MC68030 
32 ビ ッ ト CPU 


IS0386 MC68020 
Z80000 


MC68012 
IS0286 | 


16 ビ ッ ト CPU MC68010 


| MC68008 


i80186 ZS003 


デー タバ ス 8 ビット 


i8086 ZS001 


IS088 ae 


デー タバ ス 8 ピ ビ ピット 


i8085 ーーー 一 一 一 gw Z8O MC6809 


8 ビッ ト CPU 
ISOSO MC6800 





Intel 社 の 流れ Zilog 社 の 流れ Motorola 社 の 流れ 


1.1 主要 な CPU の 分 類 
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I.| ハー ドウ ェ ア に 見 る 特徴 


画 豊富 な レジ スタ 群 

図 1.2 に 示す よう に , 68000CPU の 内 部 に は 32 ビッ ト 長 の レジ スタ が 17 個 , 16 ビッ ト 長 の レ 
ジス タ が 1 個 , 計 18 個 の レジ スタ が あり ます 。 これ ら は , デー タレ ジス タ (D0 て D7)。 アド レス 
レジ スタ (A0CA7)。 プロ グラ ムカ ウン タ (PC),。 ステ ー タ スレ ジス タ (SR) に 分 類 さ れ ま す .。 







31 0 15 87 0 
DO AX| AH | AL | アキ ュ ム レー タ 
D1 BX| BH | BL | ベー スレ ジス タ 
D2 CX| CH | CL | カウ ント レジ スタ 
D3 ー _ DX デー タレ ジス タ 
nA ドー ク レジ スタ 
1 SP スタ ッ ク ポ イン タ 
D6 BP ベー スポ イン タ 
D/ SI メー スィ シ デ ッ みえ 
A0 DI ディ ステ イィ ネー ジョ ンジ イン デック ス 
A1 
A2 IP| | イン スト ラク ショ ン ポ イン タ 
A3 | flagsH | flagsL | ステ ー タ ス フ ラ グ 
A4 アド レス レジ スタ 
A5 CS コー ド セ グ メッ ント 
A6 0 DS デー タ セ グ メ ント 
A7 SS スタ ッ ク セ グ メ ント 
0 ES エキ スト ラ セ グ メン ト 
pe レーーーー イラ テ ョ クラ 4 あッ ンタ 


15 6 / 0 


シス テム バイト ユー ザー バイ ト 


1. ら BB000/ プ BB08B6CPU の レジ スタ 構成 


68000CPU は , 32 ビッ ト 長 の レジ スタ を も っ て いま す の で ,1 命令 中 で 処理 で きる デー タ の サイ 
ズ は 。 ビ ピッ ト (1 ビット )。 バイ ト (8 ピット)。 ジ シード (16 ビット)。 ロ ング ワー ド (32 ビット ) 
の 4 つ に な り ま す . また , 10 進数 を 2 進数 で 表す BCD と いう デー タ 型 を 扱う こと も で きま す の 
で 。 計 5 つの デー タ 型 を 扱え る わけ で す . 

た だ し ,。 ワー ド ,。 ロン グ ワ ー ド の デー タ を メモ リ 上 に 置く と き は , アド レス の 低位 か ら 上 位 バ 
イト ,。 下位 バイ ト の 順に 置き ます . 8086CPU の ワー ド の デー タタ と は 逆 に な り ま す の で 注意 が 必要 
で す ( 図 1.3). 


」 
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1.3 BB000/B08BCPU の メモ リ 上 の デー タ 


田 |BM バイ ト の メモ リ 空 間 

8086CPU は ,。 レジ スタ 長 が 16 ビット し か な いた め , 64K バイ ト ま で の 物理 メモ リ し か アド レ 
ス す る こと が で きま せん 。 そこ で 。 セ グ メ ント と いう ブロッ ク を 設け (1 セグ メン トー64K バイ 
ト ), それに セグ メン ト の 先頭 か ら の 相対 的 な アド レス (オフ セッ ト ) を 加算 する こと で 最大 1M バ 
イト の アド レス と 扱う こと を 可能 に し て いま す ( 図 1.4). 

し か し 68000CPU は , 24 ビッ ト の アド レス バス を も っ て いま す の で 。 セグメント な どの よう な 
面倒 な 方 法 を 使わ ず に , 16M バイ ト の メモ リ を 直線 的 に 扱う こと が で きま す .。 こう し た 素直 な 設 
計 思 想 が 。 マニ ア 好 み の CPU と いわ れる ゆえ ん な の で し ょ う 。 











68000 8086 
31 0 19 4 0 16 ビタ ト の セク メン ト 値 を 
論理 アド レス セグ メン ト 0000! 4 ビッ ト 上 位 へ ずら す 
| 
| 
| (セグ メン ト 値 )X16 十 (オフ セッ ト 値 ) が 
| 加算 ( 十 20 ビ ッ ト の 物理 アド レス 
| と な る 
31 19 15 0 
電 間 明 0000| オフ セッ ト 
19 0 





1.4 BBU0U0 プ B08BBCPU の アド レス 指定 の 違い 
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I.| ハー ドウ ェ ア に 見 る 特徴 


田 メモ リマ ッ プ ド 1/0 

68000CPU で の 周辺 装置 と の 入出 力 は 。 8086CPU の よう に 1/O ポー ト を 介し て デー タ の 読み 
書き を する と いう 方 法 で は 行い ませ ん 。 入 出力 用 の レジ スタ が メモ リ 空 間 に 割 り 当 て られ て いま 
す の で , この 領域 を アク セス する こと で 行い ます ( 図 1.5)、 この よう に , 入出 力 用 の レジ スタ を メ 
モリ 空間 に 割り 当て る 方 法 を メモ リマ ッ プ ド !/0 方 式 と 呼び ます . 

この よう な 方 式 を 採用 し た メリ ッ ト は ,。 メイ ン メ モリ と 同様 な アド レッ シン グモ ー ド と 命令 で 
I/O レジ スタ を アク セス で きる と いう こと で す .。 














000000 メイ ン メ モリ 
| 
1 M バ イト 
oe 
デー タ が 書き 込ま 
/O 用 レジ スタ トト EE 還 
\ い 
 * \ い \ 
二 い 
/O レレ 党 スタ に 介 
書き 込ま れ た デ 
ー タ は その まま 
周辺 機器 の レジ 
5 ai 
レジ スタ に 書き 込ま れ た 


デー タ を も と に 制御 が 人 行 
われ る 


制御 回 路 


1 日 メモ リヤ マ ッ プ ド 1/6 





画 特権 状態 に よる メモ リ 管 理 機構 

スー パー バイ ザー ステ ー ト , ユ ー ザ ー ス テー ト と いう 2 つの 特権 状態 が あり ,68000CPU は この 
ぃ いずれ か の 状態 で 動作 し ます . スー パー バイ ザー ステ ー ト で は , CPU の すべ て の 命令 , すべ て の 
メモ リ に 対し て アク セス が 可能 で す が ,。 ユー ザー ステ ー ト で は , シス テム に 重大 な 影響 を 及ぼ す 
いく つか の 命令 の 実行 と メモ リ の アク セス が 制限 され ます . 

この 状態 の 切換 を は ,。 ステ ー タ スレ ジス タ の S ビッ ト に よっ て 判断 され ます が , 例外 処理 が 発 
生 し た 場合 。 強制 的 に スー パー バイ ザー ステ ー ト で 実行 され ます 。 

68000CPU が 特権 機構 を も つこ と で ,。 ユー ザー の プロ グラ ム が シス テム の 管理 する 領域 を 破壊 
し だ りす る こと を 防ぎ まず すず. つま り 。 DOS な どの シス テム アプ トウ ツェ ア は ほ は スズ スー パー パイ ザー ス 
テー ト で ,。 ユー ザー の プロ グラ ム は ユー ザー ステ ー ト で 動作 させ れ ば ,。 た と え プ ログ ラム が 横 走 
し て し まっ た よう な 場合 で も 。 シス テム ソフ トウ ェ ア に 与え る 影響 を ある 程度 防ぐ こと が で きま 
は 
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一 例外 処理 

例外 処理 は , 外部 か ら の 割込み , 内 部 的 に 発生 し た 割込み 。 命令 に よる 擬似 割込み に よっ て 開 
始 さ きれ, その 原因 に 応じ て , 例外 ベク タ と いう 68000CPU の 例外 処理 ルー チン の アド レス テー ブ 
ル で 示さ れる アド レス に 実行 を 移し ます . 

例外 が 発生 する と , 発生 し た 例外 に 対応 し た 例外 ベク タ の 内 容 を アド レス と みな し , その アド 
レス へ ジャ ンプ し 。 処理 を 開始 し ます . 例外 処理 が 終了 する と , 例外 が 発生 する 直前 に 実行 し て 
いた 命令 の 次 の 命令 か ら 実 行 を 再開 し ます . 

また , 本 体 の 上 部 に ある “INTERRUPT^” と いう スイ ッ チ を 押す と 。 マス ク 不 能 割 込み (Non 
Maskable Interrupt) が か か り ,。 どの よう な 場合 で も 割込み を か ける こと が 可能 で す 。 


一 豊富 な アド レッ シン グモ ー ド 

アド レッ シン グモ ー ド と は , 扱い た い デ ー タ の ある メモ リ や レジ スタ を 指定 する 方 法 で , 表 1. 
2 の よう な 多く の アド レッ シン グモ ー ド が 用 意 さ れ て いま す .。 これ ら の アド レッ シン グモ ー ド を 
使え ば , 配列 や 構造 体 な どの デー タ 構 造 を 比較 的 容易 に 扱う こと が で きま すし , プロ グラ ムカ ウ 
ンタ に 対し て 相対 的 な アド レッ シン グモ ー ド を 使え ば 。 ロー ドア ドレ ス に 依存 し な い プ ログ ラム 
を 記述 する こと が で きま す . 

アド レッ シン グ で 参照 きれ る レジ スタ は ,。 デー タレ ジス タ と アド レス レジ スタ の 区 別 が ある だ 
け で ,8086CPU の よう に レジ スタ に よっ て 役割 が 決ま っ て いま せん か ら , 扱 い が 容 易 に な り ま す . 
た だ 残念 な こと に , 命令 に よっ て 使え る アド レッ シン グモ ー ド に 制限 が あり ます か ら 注 意 が 必要 
3 














指定 し た レジ スタ の 内 容 を 値 と する 
アド レス レジ スタ 間接 旨 定 し た アド レス レジ スタ の 指す メモ リ の 内 容 を 値 と する 


ボ ポスト インクリメント 付き 指定 し た アド レス レジ スタ の 指す メモ リ の 内 容 を 値 と し た 後 , その アド レス レ 
アド レス レジ スタ 間接 ジス タ を イン クリ メン ト す る 


プリ デ ク リ メン ト 付 き 指定 し た アド レス レジ スタ を デ ク リ メン ト し た 後 , その アド レス レジ スタ の 指 
アド レス レジ スタ 間接 す メ モリ の 内 容 を 値 と する 


ディ スプ レー スメント 付き 指定 し た アド レス レジ スタ の 内 容 と 数 値 の 和 を アド レス と し て , それ が 指す メ 
アド レス レジ スタ 間接 モリ の 内 容 を 値 と する 

イン デック ス 付 き 指定 し た アド レス レジ スタ の 内 容 と も う 1 つの レジ スタ の 内 容 と 数 値 の 和 を ア 
アド レス レジ スタ 間接 


ドレ ス と し て , それ が 指す メモ リ の 内 容 を 値 と する 


指定 し た 数 値 (アド レス ) の 指す メモ リ の 内 容 を 値 と する 
有 だ し た 数 人 を 信 と する 


ディ スプ レー スメント 付き プロ グラ ムカ ウン タ の 内 容 と 指定 し た 数 値 の 和 を アド レス と し て , それ が 指す 
プロ グラ ムカ ウン タ 間 接 メモ リ の 内 容 を 値 と する 
イン デック ス 付 き 
プロ グラ ムカ ウン タ 間 接 



































プロ グラ ムカ ウン タ の 内 容 と 指定 し た も う 1 つの レジ スタ の 内 容 と 数 値 の 和 を 
アド レス と し て , それ が 指す メモ リ の 内 容 を 値 と する 





表 1 己 アド レッ シン ダグ モー ド 
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|.| ハー ドウ ェ ア に 見 る 特徴 


1.1.4 メモ リマ ッ プ 

メモ リマ ッ プ を 図 1.6 に 示し ます 。.X68000 に は ,。 1M バイ ト の メイ ン メ モリ を は じ め と し て , 
大 容量 の メモ リ が 搭載 され て いま す 。 これ ら の メモ リ は , スー パー バイ ザー エリ ア と ユー ザー エ 
リア に 分 ける こと が で きま す . すでに 説明 し た と お り , スー パー バイ ザー エリ ア に は Human68k 
や IOCS。 テ キス ト VRAM。 グラフィック VRAM, TI/O ポー ト な ど が 割り 当て られ て お り 。, 原則 
と し て ユー ザー プロ グラ ム か ら は アク セス する こと は で きま せん 。 残り は , ユー ザー エリ ア で あ 
り ,。 プロ グラ ム を 実行 きせ る た め の 領 域 で す . 


000000 







メイ ン RAM 
(標準 実装 1 M バ イト ) 
1000001 。。。 。 。、 、 マー ウナ ウナ ナァ ーーー 
ES80000 
メイ ン RAM 
(拡張 領域 ) 
シス テム 1L/0 
EB8000| " スプ ライ ト VRAM 
CO00000 EC0000 
ユー ザー| グ O 
グラ フィ ッ ク VRAM 
ED0000 ー 標準 実装 16K 
ーーー スタ ディ ッ ク RAM-ーー 
ED4000 未 実装 
E00000 テキ スト VRAM EE0000 
E80000 | 
L/O0 エ リア 未定 義 
FO00000 CG-ROM 
FCO0000 IOCS-ROM 
FFFFFE EFFFFE 


1 .5 メモ リマ ッ プ 


田 メイ ン 日 AM( ス ー パ ー バ イザ ー エ リア ノ ユ ー ザ ー エ リア ) 

標準 実装 で は 1M バイ ト , 最大 12M バイ ト ま で 拡張 で きま す . 普通 は ユー ザー エリ ア で す が , 
000000H--1FFFFFH まで の 空間 に は スー パー バイ ザー エリ ア を 指定 で きま す .。 メ イン RAM 上 
の Human68k が 存在 する 領域 は 。 スー パー バイ ザー エリ ア と な っ て いま す . 


田 グラ フィ ッ ク VHAM( ス ー パ ー バ イザ ー エ リア ) 

多く の パソ コン の グラ フィ ッ ク VRAM は ,。 1 ビッ ト が 画面 上 の 点 1 個 に 対応 し て いる ピット 
マッ プ 方 式 が 主流 で す が 。 X68000 の 場合 は 。 1 ワー ド が 点 1 個 に 対応 し て いる “ワー ド マ ッ プ 方 
式 ′ と も いえ る 構造 を も ちっ て いま す ( 図 1.7). 

ワー ド と 点 と の 対応 関係 は 次 の よう に な っ て いま す . 


ノ } う 
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・16 色 モ ー ド … 1 ワー ド 中 の 下位 4 ビッ ト が 点 1 個 の パレ ッ ト コ ー ド を 表す 
・256 色 モ ー ド … 1 ワー ド 中 の 下位 9 ビッ ト が 点 1 個 の が パレット コー ド を 表す 
*65.536 色 モ ー ド < し ワー ドド が 0 ビット の カタ テー コー ド も 琴 ず 


カラ ー コ ー ド と は , 実際 に 表示 され る 色 を 16 ビッ ト の ビッ ト パ タ ー ン で 表し た も の で 。 パ レッ 
トコ ー ド と は ,。 パ レッ ト テ ー ブ ル の パレ ッ ト 番 号 を 指し ます 。 パ レッ ト テ ー ブ ル に は 。16 色 モ ー 


@16 色 モー ド ( 最 大 4 画面 ) 


メモ リ 構 成 各 ビ ッ ト の 意味 
15 3 0 15 、 0 
cooooo ー テ [ーー 半 | 
- 画面 0 パレ ッ ト 番 号 
せ 0 て 15 
語 パレ ッ ト テ ー ブ ル 
に パ バレット #0 
- 画 面 2 
DFFFFF ー- 画面 3 パレ ッ ト 半 n 





色 コ ー ド は 65,536 色 
モー ド 時 の 色 コ ー ド 
と 同じ フォ ー マ ッ ト 
パレ ッ ト せ 15 





@256 色 モー ド ( 最 大 2 画面 ) 


15 / 0 15 / 0 
cooooc し 識 較 
パレ ッ ト 番 号 
0 >255 


パレ ッ ト テ ー ブ ル 


DO00000 パレ ッ ト #0 





BFFEFE パレ ッ ト #n 


色 コ ー ド は 65,536 色 
モー ド 時 の 色 コ ー ド 
らら アオ ーー ダ マッ ルト 





バ パレット 255 


@65536 色 モー ド ( 1 画面 ) 


RRRRRI BBBBBI| 1 
43210143210 


1 
C00000 


15 
GGGGG 
43210 








C80000 輝度 (0 : 透 明 1 : 不 透明) 


暗 一 明 
青 (0 て 31) 

暗 一 明 
赤 (0 て 31) 

暗 一 明 
緑 (0 て 31) 


無効 


DFFFFF 


1. プ グラ フィ ッ ク VRAM 
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I.| ハー ドウ ェ ア に 見 る 特徴 


ド 時 は 16 個 。256 色 モ ー ド 時 は 256 個 の パレ ッ ト が あり , パレ ッ ト 1 個 に つき 1 個 の カラ ー コ ー 
ド を 割り 当て る こと に な り ま す . た だ し , 65,536 色 モ ー ド 時 は , 0 て 65,535 まで の カラ ー コ ー ド を 
その まま 指定 する こと に な り ま す . 

これ ら に つい て は , 3 章 の グラ フィ ックス の 項 で 詳し く 解 説 す る こと に し まし ょ う 。 


田 テキ スト VHAM( ス ー パ ー バ イザ ー エ リア ) 

画面 上 の 1 ドッ ト が , VRAM 上 の 1 ビッ ト に 対応 する ビッ トマ ッ プ 方 式 を 採用 し て いま す の 
で , 多種 類 の 文字 フォ ント を 表示 する こと も で きま す . 通常 の 文字 表示 は , ROM に 収め られ て い 
る フォ ント を テキ スト VRAM に 転送 し て 表示 し ます . 

テキ スト VRAM の 解像度 も , 768X512 ドッ ト ,。 512X512 ドッ ト , 256X256 ドッ ト の 3 種類 の 
うち か ら 選 べ ま すし , 第 2 の グラ フィ ッ ク 画 面 と し て も 使用 する こと が で きま す . 

ビッ トマ ッ プ 方 式 で は , 1 色 を 表示 する た め に 必要 な ビッ トマ ッ プ 画面 (プレ ー ン ) を 4 枚 ( 赤 。, 
和 。 青 。 輝度 ) 重 ね 合わ せ て 色 を 表現 し ます 。 つ まり 。 1 ドッ ト は 4 ビッ ト の デー タ で 表 さ れる こ 
ど 紀 條 りき す ( 回 18).、 





・1 プ レー ン の 1 ドッ ト が メモ リ の 1 ビッ ト に 対応 


ee ・4 プレ ー ン て 1 画面 を 構成 
・1 ドット あたり 4 ピッ ト で , パレ ッ ト コ ー ド を 表す 


パレット コー ド パレ ッ ト テ ー プ ブル 





E40000 IP3|P2] P1] Po #0 
プレ ー ン 2 k ギド † 
| カー ンー ダーツ プ ダメ デ 
E60000 0 
5 

E7FFFF 0 1 2 3 せ n 


色 コ ー ド は 0 て < て 65535 





1. テキ スト VHAM 


2 う 
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較 スプ ブラ イト VHAM( ス ー パ ー バ イザ ー エ リア ) 
スプ ライ ト と は 。 あらかじめ 定義 し て ある グラ フィ ッ ク パ ター ン を 画面 上 に 表示 させ る た め の 


機能 で す . 
し て いま すか ら 。 


パタ ー ン が 表示 され る スプ ライ ト 画 面 は 。 グラ フィ ッ ク 画 面 や テキ スト 画面 と は 独立 
これ ら と は 無関係 に パタ ー ン を 表示 し て 移動 きせ る こと が で きま す . 


スプ ライ ト VRAM に は , 16X16 ドッ ト の グラ フィ ッ ク パ ター ン 。 ドット ご と の 人 色 。 表示 位置 , 
そし て バッ ク グ ラン ド の パタ ー ン と その 表示 位置 に 関す る 情報 も 格納 され て いま す . また , スプ 
ライ トバ パ ター ン は 最大 256 個 まで 定義 で きま す が , バッ ク グ ラン ド を 1 面 使用 する 場合 は 192 個 
まで 。 バッ ク グ ラン ド を 2 面 使用 する 場合 は 128 個 ま で し か 定義 むる こと が で きま せん ( 図 1.9). 


@ バック グラ ンド を 使用 し な い 場 合 


EB8000 


パタ ー ン 定義 
で きる 





EBFFFF 


最大 256 個 まで 


@ バ パック グラ ンド 1 面 の 場合 
EB8000 


最大 192 個 まで 
パタ ー ン 定義 
で きる 


EBE000 バッ ク グ ラン ド 


を 1 面 使用 可 


表示 画面 サイ ズ : 512X512 
バッ ク グ ラウ ンド の 構成 単位 : 16X16 





EBFFFF 


@ バック クラ ンド 2 面 の 場合 


EB8000 
最大 128 個 まで 
パタ ー ン 定義 
で きる 


EBC000 


バッ ク グ ラウ ンド 


EBE000 を 2 面 使用 





EBFFFF 
表示 画面 サイ ズ : 256X256 


バッ ク グ ラン ド の 構成 単位 : 8X8 


1. ロ スプ ライ ト VRAM 


弄 シス テム |/0 領域 (スー パー バイ ザー エリ ア ) 
グラ フィ ックス 。 ス プラ イト 。 テ キス ト 。 キー ボー ド 。 フ ロッ ピー ディ スク 。 ハ ー ド ディ スク 。 
FM 音源 AD-PCM な どの 各種 周辺 機器 と の 入出 力 を 行う た め の レ ジス タ の 領域 で す 。 また 。, 


シャ ー プ 製 の 拡張 ボー ド を 追加 し た 場合 
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人 


> この 領域 に レジ スタ が 割り 当て られ る こと に な り ま 


1.2 ソフ トウ ェ ア に 見 る 特徴 


較 コー ザー |/0 領域 (ユー ザー エリ ア ) 
ュー ザー が 自作 の 拡張 ボー ド を 使っ て 周辺 機器 の 拡張 を 行っ た と き 。 入出 力 に 必要 な レジ スタ 
な ど を 用 意 す る た め の 領 域 で す . 


較 スタ ティ ッ ク HAM( ス ーー パー バイ ザー エリ ア ) 

メモ リス イッ チ と し て 。 バ バッテリー バッ クア ッ プ され て いる 16K バイ ト の スタ ティ ッ ク RAM 
(SRAM) が 実装 きれ て いま す . 電源 を 切っ て も 内 容 の 失わ れ な い RAM ディ スク と し て も 使用 で 
きま す . 


一 じ G-HOM( ス ー バ パー バイ ザー エリ ア ) 

文字 表示 を 行う た め の 文 字 フ ォ ン ト が 格納 され て いま す . 文字 フォ ント は, 8X8, 8X16, 16※ 
16,。 12 メ 12。 24X24。 12X24 ドッ ト の も の が 用 意 き れ て いま す . この うち 第 1, 第 2 水準 の 漢字 
フォ ント は ,。 16X16 ド ッ ト と 24X24 ドッ ト の 2 種類 だ けし か 用 意 さ きれ て いま せん . 


還 ID( ス ズー バーバ イザ ー エ リア ) 

周辺 機器 の 基本 制御 を 行う た め の サ ブル ー チ ン 群 で す . メモ リマ ッ プ 上 は , 256K バイ ト の 領域 
が 確保 し て あり ます が , 実際 に は 128K バイ ト だ けし か 使用 され て いま せん . 残 り は 予備 領域 と し 
て 将来 の た め に 予約 きれ て いま す . 


1. の ソフ トウ ェ ア に 見 る 特徴 


X68000 は 。 これ まで の 一 般 的 な パソ コン と は 異な り 。 Human68k と いう ディ スク ・ オ ペレ ー 
ティ ング シス テム (DOS) を 起動 きせ な けれ ば な り ま せん . 本 節 で は 。 X68000 独自 の ソフ トウ ェ 
ア 環 境 に つい て 。 その 概略 を 紹介 する こと に し まし ょ う . 





1. 己 .1 ソフ トウ ェ ア の 構成 


本 体 と 同 梱 され て いる ソフ トウ ェ ア は ,。 図 1.10 の よう な も の で す . DOS で ある Human68k, 
X-BASIC, 日 本 語 入 力 フ ロン ト エ ンド ・ プ ロ セ ッ サ ASK68k, 日 本 語 ワ ソー プロ,。 そ の ほか 
Human68k の コマ ンド が いく つか あり ます 。 又 -BASIC を 中 心 と し た か ん た ん な ブロ グラ ミン グ 
を すめ だ け は なら 。 と れれ だ だけ で も 十分 ぜ で し ょ う 。 

ま た,C 言語 を 中 心 と し た 本 格 的 な が プログ ラミ ング を 始め よう と 思っ た ら , シャ ー プ か ら 別 売 き 
れ て いる C Compiler PRO-68k と いう パッ ケー ジ を 購入 する こと に な り ま す . 本 書 で は , この 
パッ ケー ジ に は いっ て いる ソフ トウ ェ ア 人 資産 の 利用 方 法 に つい て 紹介 する こと に し ます . 


ノノ 
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本 体 付属 の ソフ トウ ェ ア 


DOS 
L_ Human68K (MS-DOS ライ ク な 機能 を 持つ DOS) 

デバ イス ドラ イ バ 
PRNDRV.SYS (プリ ンタ ドラ イ バ ) 
PCMDRV.SYS (AD-PCM ドラ イ バ ) 
ASK68K.SYS (学習 機能 つき 日 本 語 フロ ント エン ドブ プロ セッ サ ) 
RAMDISK.SYS (RAM ディ スク ドラ イ バ ) 
SRAMDISK.SYS (SRAM を 使っ た RAM ディ スク ドラ イ バ ) 


外部 コマ ンド 
COMMAND.X (コマ ンド プロ セッ サ ) 
VS.X (マウ ス を 使っ た ビジ ュ ア ル シ ェ ル ) 
ATTRIB.X (ファ イル の 属性 の 表示 変更) 
CHKDSK.X (ディ スク の 状態 を 調べ る ) 
COPY2.X (ハー ド デ ィ スク 上 の デー タ の 退避 復帰 ) 
CUSTOM.X (CONFIG.SYS の 作成 ) 
DISKCOPY.X (フロ ッッ ピー ディス ク の コピ ー) 
DUMP.X (ファ イル を 16 進 表 示す る ) 
FC.X (ファ イル 内 容 の 比較 ) 
FIND.X (文字 列 を ファ イル の 中 か ら 検 索 ) 
FORMAT.X (ディ スク の 初期 化 ) 
KEY.X (ファ ンク ショ ン キ ー な どの 設定 ) 
MORE.X (ファ イル の 内 容 を | 画面 ご と に 区 切っ て 表示 する ) 
PR.X (ファ イル 内 容 の ペー ジ 整 形 ) 
SORT.X (デー タ の ソー ト ) 
SPEED.X (シリ アル イン ター フェ イス の 設定 ) 
SWITCH.X (メモ リス イッ チ の 設定 ) 
SYS.X (シス テム の 転送 ) 
USKCGM.X (外字 の 作成 ・ 登 録 ・ 削 除 ) 
ED.X (プロ グラ ム や 文書 を 作成 する ) 
ED.HLP (ED の 操作 説明 ) 
DICM.X (辞書 の メン テ ナ ン ス を 行う ) 


X-BASIC 
BASIC.X (C 言語 風 の イ ンタ ー プ リタ 型 BASIC) 
外部 関数 
グラ フィ ッ ク 関 数 (GRAPH.FNC) 
スプ ライ ト 関 数 (SPRITE.FNC) 
AD-PCM 関数 (AUDIO.FNC) 
FM 音源 関数 (MUSIC.FNC) 
マウ ス 関 数 (MOUSE.FNC) 
ジョ イス ティ ッ ク 関 数 (STICK.FNC) 
カラ ー イ メー ジ ユ ニ ッ ト 関 数 (IMAGE.FNC) 
アプ リケーション 
WP.X (マル チ ウ ィ ン ド ウ の 日 本 語 ワ ー ド プロ セッ サ ) 
ImgSample.BAS (イメ ー ジ ユニ ッ ト の 簡易 制御 ソフ ト ) 
DEFSPTOOL.BAS (スプ ライ トバ パ ター ン 定 義 ユ ー テ ィ リ ティ ) 
DEFSPTOOL.HLP (DEFSPTOOL.BAS の 操作 説明 ) 
X68000 の テー マ . BAS (FM 音源 に よる デモ ンス トレ ーション ) 
SYMPHONIA.BAS (FM 音源 に よる デモ ンス トレ ーション ) 


図 1.10 本 体 付属 の ソフ トウ ェ ア 


2 の 


1.2 ソフ トウ ェ ア に 見 る 特徴 


1 .P. 選 シス テム ソフ トウ ェ ア の 基礎 知識 

X68000 が どん な に すぐ れ た ハー ドウ ェ ア を 備え て いて も , それ を 効率 よく 利用 する た め の ソ 
フト ウェ ア が 用 意 さ きれ て いな けれ ば , 宝 の も ち 腐 し に な っ て し まい ます . そこ で , 基本 的 な 制御 
の サー ビス を 提供 する シス テム ソフ トウ ェ ア , すなわち DOS の 必要 性 が 出 て くる わけ で す . 

8086CPU を 搭載 し た パソ コン で は 。 Microsoft 社 の MS-DOS が 主流 と な っ て いま す が , 
X68000 で は , Human68k と いう オリ ジ ナ ル の DOS を 搭載 し て いま す . オリ ジ ナ ル と は いっ て 
も , 操作 性 や 内 部 の し くみ な ど は , MS-DOS と 非常 に 似 て いま す . 内 部 構造 も 火 の よ うな 3 つの 
層 に 分 れ て お り , それ ぞ れ の 人 役割 を 明確 に 分 離し て いま す . 


画 | りら 

これ まで の パソ コン の 多く は , BASIC を ROM で 搭載 し て いま し た が , X68000 の ROM に は , 
ハー ドウ ェ ア に 密着 し た 基本 的 な 制御 サブ ルーチン だ け で , BASIC は 収め られ て いま せん . 周辺 
機器 を 制御 する に は , 各 言 語 に 用 意 き れ て いる 関数 を 通し て この サブ ルー チン を 利用 する こと に 
な り ます 。 


量 

アプ リ ケ ー ジ ョ ンプ ログ ラム と X68000 と の ソフ トウ ェ ア 的 な イン ター フェ イス で 。 デ プロ グラ 
ム を 動作 させ る た め の さ ま ざ ま な サー ビス を 提供 し ます . この サー ビス を 受け る こと こと を , DOS 
コー ル と 呼ん で いま す .。 DOS コー ル に よっ て 受け られ る サー ビス に は , 主 に ファ イル の 管理 。 メ 
モリ の 管理 . プロ セス 管理 な ど が あり ます . 


1 . 己 .G プロ グラ ム 言 語 の 特徴 


XX68000 で 利用 で きる 主 な プロ グラ ム 言 語 は 。 又 -BASIC。C 言語 、 ア セン ブラ の 3 つ で す 。 し 
か も 。 又 -BASIC で 書い た プロ グラ ム を C 言 語 の ソー スプ ログ ラム に 変換 する コン バー タ も 用 意 
され て いま すか ら , 必要 な 部 分 を 最も 適し た 言語 で プロ グラ ム す る こと が で きま す . つま り , 主 
な 流れ は C 言 語 で 記述 し ,。 グラ フィ ッ ク や サウ ンド な ど , C 言 語 か ら の 操作 が 面倒 な 箇所 は X 
-BASIC で 記述 する 。 そし て 高速 な 処理 が 要求 され る 部 分 は アセ ンプ ブラ で , と いっ た こと が か ん 
た ん に で きる よう に な っ て ゆい ゆる の で ます 。 


田 バ - ロ AI じ 

X-BASIC は 。 お な じみ の イン ター プリ タ 型 BASIC で す . イン ター ブリタ は, 実行 速度 の 面 で 
は C 言語 な どの コン パイ ラ に 劣り ます が 。 プ ログ ラム を と りあ え ず 書い て し まえ ば , あと は 手軽 
に 実行 の テス ト を する こと が で きる と いう メリ ッ ト も あり ます . また , 実行 し て みた 結果 , エラ ー 
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な ど が 発生 し て も , どこ で どの よう な エラ ー が 発生 し て いる の か と いう こと が わか り ま す の で 。 
ある 意味 で 優 ん た デバ ッ ク グ 機 能 を も っ て いる と も いえ ます . 

X-BASIC 本 体 に は 。 キー ボー ド , 画面 。 フ ロッ ピー ディ スク な ど を 制御 する た め の コ マン ド 。 
ステ ー ト メン ト , 標準 関数 な ど , 必要 最低 限 の 機能 し か も た せ て あり ませ ん . 周辺 装置 を 制御 し 
よう と 思っ た ら , 婦 -BASIC 本 体 に 外部 関数 ファ イル を 組み 込む こと で 機能 の 拡張 を 行い ます . た 
と えば 。 グラ フィ ックス 。 ス プラ イト 。 マ ウス 。 ジ ョ イス ティ ッ ク 。 カ ラー イメ ー ジ ・ ユ ニッ ト の 
制御 に か か わる 関数 は , すべ て 人 外部 関数 と し て 組み 込ま な けれ ば 使う こと は で きま せん . 

ベー-BASIC は ,。 こ の よう な コシ ボー ネン シン ト 世 な っ て いる と と か ら 。 必 要 な も の は と り は ず し 。 
あら た に 必要 に な っ た 外部 関数 や 自分 で 作っ た サブ ルー チン を 外部 関数 と し て 組み 込ん で し まえ 
る と いう 柔軟 性 を ちっ て いま す . 


較 じ コン バイ ラ 

C Compiler PRO-68k と いう 商品 名 に も 表れ て いる よう に 。C 言語 は 。 ソフ トウ ェ ア 開 発 の 中 
心 に 位置 づけ られ て いま す . また , X-BASIC で 物足りな い 部 分 は 。 BASTOC コン バー タ で 変換 
後に C 言語 の ソー スプ ログ ラム ・ レ ベル で 修正 する と いう こと も で きま す . 

C コ ン パ イラ に は ,。 標準 関数 。 DOS コー ル 関 数 。 IOCS コー ル 関 数 。 BASIC 関数 の 4 種類 の ラ 
イブ ラリ が 用 意 さ きれ て お り ,X68000 の すべ て の 機能 を 呼び 出す こと が で きる よう に な っ て いま す 。 


田 AG ご 1 コン バー タ 

C Compiler PRO-68k に は 。X-BASIC の プロ グラ ム を C 言 語 の ソー スプ ログ ラム に 変換 する 
コジ シン パー タグ が 何 同 し て いま すか ら 。C 言語 で デ ロ グ ラム し た と き と 同 じじ よう だ コンパイル し て 実 
行 速度 を 上 げ る こと も で きま す ( 図 1.11). 


コン バー ト 





ゴジ シバ パ バイ ル 


movedq せ 
trap サ 15 
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I.2 ソフ トウ ェ ア に 見 る 特徴 


また , X68000 の 特徴 で も る グラ フィ ッ ク や サウ ンド を 利用 する に は 。 C 言語 より も 双 -BASIC 
で プロ グラ ム し た ほう が 。 効率 よく 作業 を すす め る こと が で きま すか ら 。 プ ログ ラム の 種類 に 応 
じ て プ ログ ラム 言語 を 使い 分 ける と いう テク ニッ ク を 使う こと も で きま す . 


1 . 己 .4 プロ グラ ム 開 発 を 助け る ツー ル 群 

どの よう な が 言語 で 開発 する に し て も , 開発 の 途中 で は いろ いろ と 面倒 な こと が 多い も の で す . 
ソー スプ ログ ラム や オブ ジェ クト ファ イル の 管理 な ど は , と < に 面倒 で す . C Compiler PRO-68k 
に は これ ら を サポ ー ト する コマ ンド が いく つか 用 意 さ きれ て いま す .。 ここ で は ,。 その な か か ら ,。 と 
くに ソフ トウ ェ ア 開 発 に 必要 な も の を 選ん で 紹介 し まし ょ う . 


田 アセ ン ブ ラ 

XAssembler(AS.X) は 。 68000CPU 専用 の マク ロア セン ブラ で す 。 AS.X は 68000CPU の アセ 
ンプ ブリ 言 語 で 書か ん た ソー ス フ ァ イル (拡張 子 が .S) を アセ ン ブ ル し て 。, オブ ジェ クト ファ イル ( 拡 
張子 が .O) を 生成 し ます . この オブ ジェ クト ファ イル を , この あと 紹介 する XLinker で リン ク す る 
と 。 形式 の 実行 可能 ファ イル が 生成 され ます . AS.X の 主 な 特徴 に は 次 の よう な も の が あり ま 
す . 


・ 分 割 ア セン プル 機能 

・ マ クロ 定義 

・ 分 岐 命令 の 前 方 参照 の 最適 化 
・ イ ンク ルー ド フ ァイル の 挿入 
・ 豊 富 な 擬似 命令 

・ 季 件 つき アセ ンプ ブル 機能 


田 リン カ 

XLinker(LK. え ) は 。 AS.X で アセ ンプ ブル きれ た オプ ジェ クト ファ イル を リン ク し て 。 X 形式 の 
実行 可能 ファ イル を 生成 し ます . た と えば , 複数 の オプ ジェ クト ファ イル を リン ク し て , 1 つの 実 
行 可能 ファ イル を 生成 し た り , アー カイ ブフ ァイル の な か か ら 必 要 な 部 分 だ け を リン ク す る こと 
が で きま す . 


田 デバ ッ ガ 


XDebugger (DB.X) は 68000CPU 専用 の シン ボリ ッ ク デ バッ ガ で ,。 ソー スプ ログ ラム 中 で 定義 
され だ シン ボル を 委 照 し な が ら デ バッ グ す る こと が で きま す . DB.X の 主 な 機能 を 次 に 示し ます . 
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・ ア セン ブル ン ノ 逆 アセ ンプ ブル 機 能 

・ プ ログ ラム 中 の 任意 の 場所 で の 実行 停止 
・ メ モリ 内 容 の ダン プ , エディ ッ ト 

・ レ ジス タ の 参照 と 変更 

・ プ ログ ラム の 実行 , コマ ンド ライ ン の 設定 
・ プ ログ ラム の 実行 を トレ ー ス 

・ シ ン ボ ル の 参照 

・DB.X が 独自 に 用 意 し た 変数 の 扱い 

・10 進数 と 16 進数 の 計算 機能 

・ デ ィ ス ク を セク タ 単 位 で アク セス 

・ フ ァイル の ロー ド と セー プ 


田 アー カイ バ 

XArchiver(AR.X) は 。 複数 の ファ イル を 1 つの ファ イル (アー カイ ブフ ァイル , 拡張 子 は .A) に 
まとめ て 管理 し ます . 

プロ グラ ム を 開発 し て いる と , た いて い の 場 合 1 つの 実行 可能 ファ イル に 対し て 複数 の ソー ス 
ファ イル や オブ ジェ クト ファ イル を 作成 する こと に な り ま す . この よう な 開発 途中 に 作成 する 
ファ イル は 。 数 が 増え る に 従っ て 管理 が 難し く な り ま す (DIR コマ ンド を 実行 する と 何 百 個 と い 
う オ ブ ジ ェクト ファ イル が 表示 され る と き や ,。 何 百 個 と いう ソー ス フ ァ イル か ら 1 つ を 選ん で エ 
ディ ッ ト す る と きのこ と を 想像 し て くだ さい ). そ こ で 関連 の ある ファ イル ご と に まとめ て 管理 す 
る と きだ に 。 と この アー カイ バ AR.X が 役立つ の で す 。 

た だ し AR.X に よっ て 管理 で きる ファ イル は , オブ ジェ クト ファ イル と ソー ス フ ァ イル の 2 つ 
だ だ で す 。 


較 コン バー タダ タ 

XConverter (CV.X) は 。 リ ンカ が 作成 し た XX 形式 の 実行 可能 ファ イル を 他 の 形式 に 変換 する コ 
マン ド です. 変換 で きる 形式 (フォ ー マ ッ ト ) は 次 の 4 種類 で す ( 実 行 可 能 フ ァイル の 各 形 式 に つい 
て は p.52 を 参照 ). 


・R 形式 の 実行 可能 ファ イル 
・Z 形式 の 実行 可能 ファ イル 
イン デル HEX ル フォ ー マ ッ ド 


5 た ロー ラプ ア ォ オー マ 『 


3 ジジ 


1.2 ソフ トウ ェ ア に 見 る 特徴 


通常 は, R 形式 に 変換 する 場合 が 最も 多い よう で す . また イン テル HEX フォ ー マ ッ ト と モト 
ロー ラ S フォー マッ ト は 。,。 主 に PROM ライ タ に 出力 する と き に 使用 され ます . X68000 上 で 実行 
する プロ グラ ム を 作成 する だ け な ら 。 こ の 2 つの フォ ー マ ッ ト を 利用 する 必要 性 は な いで し ょ う . 


暗 じ A ど ヒ .X 

この コマ ンド は, 半角 英 小 文字 を 含む ファ イル 名 を すべ て 半角 英 大 文字 に 変換 する た め の ツ ー 
し 

この コマ ンド は ,。 Human68k 上 で の み フ ァイル 操作 を 行っ て いる 場合 に は 。 あ まり 使用 する 機 
会 は あり ませ ん が , X68000 で 作成 し た ファ イル を MS-DOS 上 で アク セス する 場合 に は 非常 に 有 
効 で す (P.46 参照 MS-DOS は , 半角 英文 字 の うち 小文字 を 含む ファ イル 名 や ディ レク トリ 名 
を 許し て いな い の で , Human68k の ファ イル や ディ レク トリ を アク セス する こと が で きま せん . 
そこ で ,。 この コマ ンド が 必要 に な る わけ で す . 


較 MUVE.X 

ディ レク トリ か ら 。 別 の ディ レク トリ ヘ へ ファ イル を 移動 し ます . た だ し 。 ディ レク トリ 単位 で 
は 移動 で き な い の で 注意 し て くだ さい . また , ドラ イブ 間 で ファ イル を 移動 する こと も で きま せ 
ん | 


一 「A 中 XX 

タイ ム ス タ ン プ を 委 照 し て ,。 ファ イル の 更新 を 行い ます . 指定 され た ファ イル が 。 パス に 指定 
され だ た ディ レク トリ 内 に な いか , た と え あ っ て も 指定 され た ファ イル の ほう が 新 し け れ ば , 新 し 
い ほ う の フ ァイル を 指定 され た ディ レク トリ に コピ ー し ます 。 た だ し , プ N オプ ショ ン が 指定 さき 
れ て いた 場合 に は , コピ ー 先 に な い フ ァイル は コピ ー し ませ ん . 

この コマ ンド を 使え ば 。 バー ジョ ン ア ッ プ し た ファ イル を シス テム に 組み 込む と き に 。 間違っ 
て 古い パー ジョ ン の コマ ンド を 組み 込ん で し まう よう な ミス を 未然 に 防ぐ こと が で きま す 。 


田 「 り DUCH.X 

ファ イル や サブ ディ レク トリ , ボリ ュー ム 名 の タイ ム ス タ ン プ を 変更 し ます . た だ し , 読出 し 
専用 属性 や シス テム 属性 の つい て いる も の は 変更 で きま せん . また , 作成 日 付け , 作成 時 刻 の ど 
ちら か 一 方 の み を 変更 する こと も で き な い の で 注意 し て くだ さい 、. 


田 「 ロ ヒヒ .X 


ディ スク に 格納 され て いる , ファ イル や ディ レク トリ の 階層 構造 を 視覚 的 に 表示 し ます (画面 
1 し 


3.3 
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し > 
(>TREE /f | 記 ii CC ドライブ の ルー トディ レク ト リ よ り . 
ファ イル 名 も 含め て ディ レク トリ 構造 を 表示 する 


| !-DOSLIB.R 
! に IOCSLIB.8 
!-1NCLUDE 
| !-DOSCRLL.IWC 


「 !-10CSCRLL.PfC 


!-FTC 
C> 


| CU| 上 上 u 上 <) SU 関 是 VO NL IND 上 UE | 





画面 1.1 THEE コマ ンド の 実行 例 


田 WHE ロ ヒ .XX 

階層 構造 が 複雑 に な る と , 必要 と し て いる ファ イル が どの ディ レク トリ の 下 に ある の か わか ら 
な く な る こと が あり ます . その よう な と き ,。 この コマ ンド を 使う と , 探し て いる ファ イル の ある 
ディ レク トリ を 知る こと が で きま す 。 ま た 。 す べ て の ドラ イブ に つい て 探す こと も で きま す 。 


] . 己 性 ライ ブラ リ こ 外部 関数 

いま まで BASIC を 中 心 と し た プロ グラ ム し か 作っ て こ な か っ た 方 に と っ て は 。 ラ イブ ラリ と 
いっ て も ピン と こない か も し れ ま せん 。 ライ ブラ リ と は 。 後々 使え る よう な 便利 な サブ ルー チン 
の 集まり で 。 し か も , プロ グラ ム 中 か ら 自 由 に 呼び 出す こと が で きる よう に まとめ て 管理 され て 
いる も の で す . 

プロ グラ ム 中 で 頻繁 に 使わ れる 関数 は 。 ライ ブラ リ に し て 保存 し て お く と 。 毎回 同じ よう な 関 
数 を 書か な く て も 。 名 前 で 呼び 出す だ け で 使う こと が で きま す .。 それ ば か り で な く , それ まで 数 
十 行 必要 だ っ た 部 分 が 緒 ま り , プロ グラ ム 自 身 も 見 や すく な り ま す . 

C Compiler PRO-68k に は 。C 言語 や アセ ンプ ブラ の プロ グラ ム か ら 利 用 で きる いく つか の ライ 
ブラ リ と , X-BASIC か ら 利 用 で きる 外部 関数 と が 付属 し て いま す の で , 一 般 的 に 必要 だ と 思わ れ 
る 関数 は 。 ほとん ど そ ろ っ て いる と いえ ます . も ちろ ん , プロ グラ ム 開 発 途上 で で き あ が っ た 関 
数 も 保存 し て お け ば , より 効率 的 に 開発 を すす め る こと が で きま す . 

た だ し , 注意 が 必要 な の は , C 言語 や アセ ン ブ ラ か ら は 外部 関数 を 利用 で き な い と いう こと と 。 
XX-BASI じ し から は ライ ブラ リ を 利用 で き な い と いう こと で す . 
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I.2 ソフ トウ ェ ア に 見 る 特徴 


一 ライ ブラ リ 関 数 
じ コ ン パ イラ に は 。 次 の よ うな ライ ブラ リ が 付属 し て お り , ファ イル 入出 力 や メモ リ 操 作 , 数 値 
演算 , 文字 列 操作 な どの 関数 が 提供 きれ て いま す . 


・ 標準 関 数 ライ プ ブラリ … ファ イル 入出 力 や メモ リ 操 作 。 数 値 演算 , 文字 列 操作 な ど 
の 関数 

・DOS コー ル ラ イブ ラリ … DOS コー ル を 行う た め の 関 数 

・IOCS コー ル ラ イブ ラリ … IOCS コー ル を 行う た め の 関 数 

.・ BASIC 関数 ライ プラ リ  … BASTOC コン バー タ で X-BASIC か ら C 言 語 へ 変換 き 


れ た プロ グラ ム の た め の 関 数 


田 外部 関数 

外部 関数 は , X-BASIC で 周辺 機器 を 利用 する と き に 使用 する X-BASIC 専用 の 関数 で す . 外部 
関数 は , X-BASIC 起動 時 に BASIC 本 体 に 組み 込ん で 使用 する こと に な り ま す . 本 体 に は グラ 
フィ ッ ク (GRAPH.FNC), スプ ライ ト (SPRITE.FNC), FM 音源 (MUSIC.FNC),。 AD-PCM 
(AUDIO.FNC), マウ ス (MOUSE.FNC), ジョ イス ティ ッ ク (STICK.FNC), カ ラー イメ ー ジ ・ ユ 
ニッ ト (IMAGE.FNC) を 制御 する 外部 関数 が 付属 し て いま す . 


1 ..5 ソフ トウ ェ ア 資 産 の 蓄積 


C Compiler PRO-68k に は , 非常 に 多く の 関数 が ライ ブラ リ や 外部 関数 と し て 付属 し て いま 
す . し か し , 標準 関数 に 用 意 き れ て いな い 関 数 を 作り た いと いう 要求 も 生ま れ て くる こと で し ょ 
う . その よう な 場合 , ユー ザー 独自 の 関数 を 収め た ライ ブラ リ や 外部 関数 を 作成 する こと が で き 
嘱 ず 。 

し か し , せっ か く ラ イブ ラリ 化し て も その 場 限 り で 二度と 使わ な いよ うな も の を 作っ て も 意味 
は あり ませ ん 。 後々 の プロ グラ ミン グ で も 役立つ よう な 汎用 的 な 関数 を 作り , どの よう な 言語 で 
プロ グラ ム を 書い て いて も , すべ て の 言語 で 利用 で きる よう に ライ ブラ リ 化 し て いく こと が ,。 ソ 
フト ウェ ア 資 産 を 蓄積 し て いく こと に な る の で す . 

それ で は , ライ ブラ リ や 外部 関数 の 拡張 は どの よう に 行う の か と いう こと に つい て か ん た ん に 
説明 し て お きま し ょ う 。 具体 的 な 方 法 に つい て は ,。 5 章 で 紹介 する こと に し ます . 


田 ライ ブラ リ 関 数 の 拡張 

ライ ブラ リ に 収め る 関数 は , C 言語 ある い は アセ ンプ ブラ で 記述 する こと が で きま す . ア セン プラ 
で 作る 場合 。 当然 の こと な が ら 68000CPU の アセ ンプ ブラ や C 言 語 の 内 部 仕様 に 詳し く な いと で き 
な いも の で す が , 高速 な 関数 を 作る に は 最も よい 方 法 で し ょ う . 
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| 章 X68000 の プロ フィ ー ル 


た と えば , 自作 の 拡張 ボー ド を 増設 し た 場合 ,。 その ボー ド を 動か す た め の 1OCS に 相当 する サブ 
ルー チン を 作っ て お いて か ら , それ を 利用 する た め の 関 数 を 作る こと に な り ま す . と くに 。 IOCS 
に 相当 する 部 分 は た いて い ぃ 高速 性 が 求め られ ます . こ の よう な 場合 は アセ ン ブ ラ が 最適 で し ょ う . 

C 言語 や アセ ンプ ブラ を 使っ て 書い た プロ グラ ム の ライ ブラ リ へ の 登録 。 削除 な どの 管理 を 行う 


と き に は , アー カイ バ と いう ツー ル を 便 用 し ます 。 


< Ss 
スソ 





XAssembler 
< .S 


リル 三光 レッ 


X-BASIC 
て . BAS 












て.A 
(と.0 の 集合 体 ) 





1.1 己 ソフ トウ ェ ア 資 産 の 蓄積 
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1.2 ソフ トウ ェ ア に 見 る 特徴 


画 外部 関数 の 拡張 

外部 関数 は , C 言語 や アセ ンプ ブラ を 使っ て 作成 する こと が で きま す が , 決め られ た 仕様 に 従っ て 
作ら な けれ ば な り ま せん . アセ ンプ ブラ で 作成 する 場合 に は , 細か な プロ グラ ミン グ を する こと が 
で きま す の で , 仕様 に 合っ た も の を 作る こと は 可能 で す が , C 言語 を 使用 する 場合 に は , 外部 関数 
の 仕様 に 合っ た も の を 直接 作る こと は で きま せん . 

本 書 で は , C 言語 で 書い た プロ グラ ム を 外部 関数 に 変換 する ツー ル を 用 意 し まし た (p.261) か 
ら 。 外部 関数 の 内 部 仕様 に つい て 知ら な く て も 簡単 に 外部 関数 を 作れ る よう に な っ て いま す . 

この ツー ル を 応用 すれ ば , X-BASIC と C 言 語 の いずれ の 言語 で 関数 を 記述 し て も , ラ イブ ラリ 
関数 と 外部 関数 の 両方 に 登録 で きま す の で , 理想 的 な 環境 を 構築 する こと が で きま す ( 図 1.12). 


きだ 
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ー25EP gt UImann nB OK 
。-。 XBBOOO と いう と , AD-POM FM 音源 と いっ た ハー ド 
ウェ ア や , 美しい グラ フィ ックス を 使っ た ゲー ム や デザ イン ツー ル 


ア や , 
な ご どの ソフ トウ ェ ア が 注目 され が ち で す . し か し , これ ら の ハー ド 
ウェ ア や ソフ トウ ェ ア を ささ えて いる ディ スク ・ オ ペレ ー テ ィング 


ア 
シス テム ( ロ 〇 8) の 存在 を 忘れ て は な り ま せん . 
本 章 で は . Humank の 特徴 と 内 部 構造 ., そし て XBB00O 
Human8k 上 で プロ 


DD =Fi に の 起動 か ら 終了 まで の 過程 な ど , これ か ら 
グラ ム を 書 こ うと する ユー ザー に こと っ て 必要 な こと か がら を 中 心 に 解 


に にょ 
" DRvCrs, 説 を すす め て いき ます . 
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2.| Human68k の 概要 


己 . | HumanB8k の 概要 





Human68k は 。 MS-DOS (ver.2.11) を モデ ル と し て 作ら れ て いる シン グル ユー ザー・ シ ング ル 
タス ク の DOS で す . その 操作 や 基本 構成 は , MS-DOS と それ ほど 異な り ま せん が , X68000 独自 
の 機能 を 活か す た め の 工夫 も こら され て いま す . それ で は , Human68k が どの よう な も の な の か 
を 理解 する た め に , その 全体 像 か ら な が め て みる こと に し ます . 


己 .1.] HumanB8gk の 構成 
Human68k と いう 呼び 名 は シス テム 全体 を 指す 名 称 で 。 図 2.1 に 示す よう に 4 つの 部 分 か ら な 
り だ つて いら ます 。 
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己 .1 HumanB8 コ k の 構成 


シェ ル (COMMAND.X) は 。 ユー ザー が 入力 し た コマ ンド を 解釈 し, 実行 に 移す た め の ア プリ 
ケー ショ ンプ ログ ラム の 一 種 で 。 MS-DOS の COMMAND.COM に 相当 する も の で す . 
DOS は 。Human68k の 心臓 部 で あり 。X68000 全体 の 管理 を 行い ます . 通常 。 アプ リ ケ ー シ ョ 
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ン は DOS に 対し て 必要 な 要求 を 行う こと で , Human68k 上 で 動作 する こと が 許さ れ ま す . これ を 
無視 し た プロ グラ ム を 作成 する と 。 他 の プロ グラ ム と 協調 し て 動作 させ た りす る 場合 に , 障害 が 
発生 する こと が あり ます . また , DOS 内 で は ,。 ハ ー ド ウェ ア の 細か な 制御 まで は 行わ ず 。 デ バイ 
ス ド ラ イ バ と 基本 入出 力 シ ステ ム に 任せ て いま す . 

Human68k で は 、 い くつ か の 基本 的 な 入出 力 装置 を サポ ー ト する デバ イス ドラ イ バ が DOS と 
同一 の ファ イル (HUMAN.SYS) に 収め られ て お り ,。 外側 か ら は その 切 分 け を 見 る こと は で きま 
せん . その他 の デバ イス ドラ イ バ は HUMAN.SYS と は 別 の ファ イル と し て ディ スク に 格納 され 
て お り , シス テム 起動 時 に 組み 込ま れ ま す . 

基本 入 由 カシ ステ ム (IOCS) は ,。 ハー ドウ ェ ア を 直接 アク セス し て いる 最 下 層 の サブ ルー チン 群 
で あり , 本 体内 蔵 の ROM に 収め られ て いま す . ほ と ん どの 場合 ., デバ イス ド ライ バ も IOCS を 通 
じ て 入 出力 装置 を コン トロ ー ル し て いま す . 

さて , IO0CS が KROM に な っ て いる と いう こと は , Human68k 以外 の DOS を 作成 し た 場合 に も 
利用 する こと が で きる と いう こと な の で , 厳密 な 意味 に お いて は ,Human68k の 一 部 と は いえ な 
いか も し れ ま せん 。 し か し , X68000 の ハー ドウ ェ ア す べ て を Human68k が サポ ー ト し て いる わ 
け で は な く , IOCS を 直接 呼び 出 き な けれ ば 使用 で き な い 周辺 装置 も ある の で , この 革 で は IOCS 
に つい て も 解説 し て いま す . 

この よう に ,。 ユー ザー イン ター フェ イス と ハー ドウ ェ ア に 密着 し た 部 分 を 別 の 層 に 分 ける こと 
で , DOS に 手 を 加え る こと な く , ユー ザー イン ター フェ イス の 変更 , ハー ドウ ェ ア の 仕様 の 変更 
を 行う こと が で きま す 。 逆 に いう な ら ば 。 ア プリ ケー ショ ン は ハー ドウ ェ ア に 依存 し な く な る の 
で ,。 ハー ドウ ェ ア の モデ ル チ ェ ンジ に 合わ せ て ソフ トウ ェ ア を 書き 換え る と いう よう な 作業 か ら 
解放 きれ ます . ですから, HUMAN.SYS を 介さ ず に ハー ドウ ェ ア を 制御 し た りす る の は 放 け , デ 
バイ スス ドラ イオ バ を 通じ て 行っ た ほう が よい で し ょ う 。 

た と えば , ハー ドウ ェ ア の 仕様 が 変更 され た 場合 (た と えば , CPU が 68000 か ら 68020 と いう 上 
位 互換 の 32 ビッ ト CPU に な る な ど ),。 ハー ドウ ェ ア や TIOCS の 仕様 に 依存 し た プロ グラ ム は 正 
常に 動作 し な く な る 危険 性 が あり ます . 


己 .1. 選 Human ら gk の 特徴 


Human68k の お お よそ の 構造 は 。 お わか り い た だ けた で し ょ う . それ で は 。 Human68k の 機能 
を も う 少 し 詳細 に 見 て み ま し ょ う . 


田 コマ ンド シェ ル (COMMAND.X) 

COMMAND.X は , MS-DOS の COMMAND.COM と ほぼ 同等 の 機能 を も ち , さら に いく つか 
の 機能 強化 が 行わ れ て いま す . た と えば , 1 行 に 複数 の コマ ンド を 連続 し て 書き , 連続 実行 させ る 
マル チ 処 理 機能 。 実行 し た コマ ンド の 履歴 を 記憶 し て お く ヒ スト リ 機 能 な ど が それ で す . これ ら 
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2.| Human68k の 概要 


の 機能 を うま く 組 み 合わ せ て 使う こと で 。 コマ ンド 入力 の 手間 を 大 幅 に 軽減 させ る こと が で きま 
3 。 


マル チ 処 理 
マル チ 処 理 と は 。 1 行 の コマ ンド ライ ン に 複数 の コマ ンド を 連続 し て 記述 し 。 それ ら を 連続 実行 
させ る 機能 で す .。 マル チ 処 理 を 行う た め に は 。 コマ ンド 行 で 連続 実行 さき せ た い コマ ンド を ~| |? 


で 区 切っ て 記述 し ます . 
た と えば 。 
SCREEN | | DIR | | PROCESS 


と 入力 する と, 画面 を 初期 化し た あと , ディ レク トリ 表示 , プロセ ス の 状態 の 表示 が 行わ れ ま す . 
この 機能 が 本 領 を 発揮 する の は , 次 の よう な 場合 で し ょ う . 


AS ノ i A:\INCLUDE TEST | | LK TEST |I|l CV /r TEST 


この 例 で は , TEST.S? と いう アセ ンプ ラ の ソー ス フ ァ イル が , アセ ンプ ブラ, リンカ, コン バー 
タ に か けら れ , 途中 で エラ ー が 起き な けれ ば ^TEST.R/ と いう 実行 可能 ファ イル を 作る こと が で 
ます 。 


ヒス トリ 

ヒス トリ 機能 と は , それ まで 入力 し た コマ ンド ライ ン を 記録 し て お き , 必要 な と き に 呼び 出し 
て 再 実行 する も の で す . マル チ 処 理 機能 を 使っ た 場合 な ど ,. コマ ンド ライ ン が 長く な る と き に は , 
この 機能 を 利用 し て キー 入力 を 省力 化す る こと が で きま す . 

コマ ンド ライ ン を 記録 し て お く 領 域 は コマ ンド シェ ル の 起動 時 に オプ ショ ン で 決め る こと が 
で きま す . た と えば , 次 の よう に 起動 し た 場合 . ヒ スト リ 領 域 は 256X8( 三 2K) バ イト が 確保 され 
ます , また ,。 指定 の な い 場 合 は , 512 バイ ト が 確保 され ます . 


COMMAND ンプ H:8 


図 2.2 に は , ヒス トリ 機能 の し くみ を 示し ます . 基本 的 に は ,“ 十 " や びー" コマ ンド に より ヒ 
スト リ 中 の コマ ンド ライ ン を 検索 し 。 テン プレ ー ト に 格納 し ます . また , HIS コマ ンド で ヒス ト 
リ 領域 に 格納 され て いる コマ ンド ライ ン を 表示 し ます . 

普通 は ROLL UP/ROLL DOWN キー, UNDO キー だ け で , それ まで 入力 し た コマ ンド ライ 
ン の 再編 集 と 実行 を する こと が で きま す . プロ ンプ ト が 表示 され て いる 状態 で ROLL DOWN 
キー を 押す と, 現在 注目 し て いる ヒス トリ 行 よ り 1 つ 前 の 行 の 内 容 が 画面 に 表示 され る と と も に , 
テン プレ ー ト に 格納 され ,。 UNDO キー を 押す と 。 その コマ ンド ライ ン が 実行 きれ ます . また , 
ROLL UP キー は ヒス トリ 行列 中 の 注目 行 を 1 つ 進 め ま す . 
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ヒス トリ 行列 の 領域 


エーー ヘ へ 」 ヒ スト リ の 機能 ② 
[ テン プレ ー ト へ 転送 する 
」 ヒス トリ 行 を 切り 換え る 
ヒス トリ の 機能 ① ' 
コマ ンド ライ ン を ヒス トリ 
右 域 へ 格納 する | 


ウー や 


これ まで 大 力 き 槍 た も 
コア ペド ポッ ビー マーー- 





直前 の コマ ンド ライ ン ! 


現在 編集 中 の 
コマ ンド トラ イン 






己 己 ヒス トリ 機能 


リダイレクト ド と バイ ブ プ 

シェ ル の 機能 と し て 忘れ て は な ら な い の が 。 リ ダイ レク ト と パイ プ で し ょ う . リダイレクト は , 
コマ ンド の デー タ の 入力 元 や 処理 結果 の 出力 先 を 変更 する も の で す . た と えば TYPE コマ ンド で 
は , 通常 テキ スト ファ イル の 内 容 を 画面 に 出力 し ます が , この 出力 先 を 画面 か ら プ リン タ へ 変更 
する こと が で きま す ( 図 2.3). また 。, 出力 先 を ファ イル に する と 。, 出力 結果 を ディ スク に 記録 する 
こと 多 で 介 ま すず 。, 





リダイレクト 


ファ イル 


己 づ リダイレクト の 考え 方 


パイ プ は , ある コマ ンド か ら 出 力 さ れ た デー タ を 次 に 実行 する コマ ンド の 入力 デー タ と する も 
の で す ( 図 2.4). 
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ッッ 


し 人 証 


パイ プ 
[ 
| 
| 
8 


5。 


L wm | と で 


シン レニ ピ ィ 


TYPE コ マン ド の 出力 を その まま SORT コ マン ド に 渡す 


田 ビジ ュ ア ル シ ェ ル (V.X) 
ビジ ュ ア ル シ ェ ル (VS. 双 ) の 目指 す 操 作 環 境 は 。 コ マン ド シ ェ ル の それ と は 対極 に あり ます . コ 
マン ド シ ェ ル で は , ユー ザー が 何 か を 操作 し た いと き , その 操作 は すべ て キー ボー ド か ら 文 字 列 
(コマ ンド ) を 入力 する こと で 行わ れ ま す . 
MC に 和装 し て で ビジュ デルタ ル は 。 ラ ァイル を すず す ペ や "デイ ロン” ちら う シ シンボル マー クツ で 愉 
し 。 ひ と めで その ファ イル が 何で ある か を 見 分 けら れる よう に な っ て いま す 。 そし て 。 キー ボー 


ド の 代わ り に マウ ス を 使い 。 


まだ 。 


て いま す 。 





コマ ンド シェ ル に は な い 。 


画面 ど . 1 


己 .4 パイ プ の 考え 方 


』 1998 年 19 月 21 日 金曜 日 。 
凍 TS 
1 1 5 全 語 
| 。' ほ 町 GFT ( 画 加 」 


タイ マー 


VS.X に 組み 込ま れ て いる アプ リケーション 
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Human68k の 概要 


これ ら の アイ コン を クリ ッ ク す る こと で 。 キー ボー ド か ら の 文字 列 
入力 に 比べ 。 か ん た ん に ファ イル の 操作 が で きる よう に な っ て いま す 。 
画面 2.1 の よう な いく つか の アプ リケーション が 組み 込ま れ 


4 う 


2 莉 オペ レー ティ ング シス テム Human68k 


この ビジ ュ ア ル シ ェ ル は ,。 MS-DOS に と っ て の MS-WINDOWS と の 関係 と は まっ た く 異 な 
り ま す 。 ビ ジュ アル シェ ル は , コマ ンド の 解 生 。 実行 を 行う た め の 単 な る ユー ザー イン ター フェ 
イス の 1 つ に し か すぎ ませ ん 。 つ まり , ウィ ンド ウ 環 境 で は な いと いう こと で す 。. 

オプ ショ ン 指 定 の 必要 が ほとん ど な い 普通 の アプ リケーション を 利用 する 際 に は ビジ ュ ア ル 
ジェル の ほう が 適し て いま す が , プロ グラ ム 開 発 に は コマ ンド シェ ル を 使用 し た ほう が よい と い 
える で し まう 。 


弄 ファ イル シス テム 

Human68k で も 。 MS-DOS と ほぼ 同じ ファ イル シス テム を 採用 し て いま す の で 。 Human68k 
で 作成 され た フロ ッ ピ ー デ ィ ス ク を 。 MS-DOS で 読み 書き する こと が で きま す 。 し か し , ファ イ 
ル 名 の つけ か た な ど で , 多少 の 相違 点 が あり ます の で , 注意 も 必要 で す . 


ファ イル 名 規約 

MS-DOS で は , ファ イル 名 中 の 半角 英文 字 は 大 文字 で 扱っ て お り , コマ ンド ライ ン か ら 小 文字 
の ファ イル 名 を 指定 し て も , 内 部 で は 大 文字 に 変換 し て 処理 し ます . し か し , Human68k は 。 そ 
の よう な 処理 を 行い ませ ん か ら , 英 小文字 を 含む ファ イル 名 を 作成 する こと が で きま す .。 に も か 
か わら ず , ファ イル 名 中 の 大 文字 と 小文字 は 区 別 き れ な い の で , “FOO.S” と “foo.S" は , まっ た 
く 同 じ フ ァイル を 指し て いる こと に な り ま す . 

Human68k で 使用 きれ る フロ ッ ピ ー デ ィ ス ク は ,。 MS-DOS で も 読み 書き する こと が で きま す 
が 。 半角 英 小 文字 の 名 前 が つけ られ た ファ イル を MS-DOS で 扱う こと は で きま せん か ら , DIR コ 
マン ド で ファ イル の 一 覧 を 参照 する こと は で き て も , ファ イル を 読み 込む こと は で きま せん . 
また 。 フ ァイル 名 の 長 さ も 異な り ま す . MS-DOS で は 半角 文字 で ノー ド 名 8 文字 と 拡張 子 3 文 
字 で 構成 され て いま し た が , Human68k で は ノー ド 名 18 文字 , 拡張 子 3 文字 まで 使う こと が で き 
ます 。 し か し , ファ イル 名 の 認識 は ノ フード 名 8 文字 まで で すか ら 。, 事実 上 MS-DOS と 同じ で ある 


| BAS | X-BASIC 用 に 記述 され た プロ グラ ム の ソー ス フ ァ イル 

C 言語 で 記述 され た ソー ス フ ァ イル 

| S | 68000CPDU の アセ ンプ ブリ 言 語 で 記述 され た ソー ス フ ァ イル 

区 昌 区 と なの 2 


X 形式 の 実行 可能 ファ イル 


R 形式 の 実行 可能 ファ イル 


バッチ ファ イル 


OS 本 体 や デバ イス ドラ イ バ 等 の シス テム ファ イル 





区 

Fx 

Hm 

| 3 | zo 一 能 ファ ィ ル ー  、  、、、、。、.。.〕 ぴ 
“ 


表 己 .] HumanB8kK で 予約 され て いる ファ イル 拡張 子 
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2.| Human68k の 概要 


と VS 文 ます 。 

さら に , シス テム で 予約 され て いる ファ イル 拡張 子 も , MS-DOS の も の と は 異な り ま す . 表 2. 
1 に Human68k で 予約 きれ て いる 拡張 子 の 種類 と 意味 を まとめ て お きま す . 

この よう な 違い を 考え る と , MS-DOS と の 間 で の ファ イル の 互換 性 を 保ち た い の で あれ ば , 
ファ イル 名 を すべ て 大 文字 で , か つ 文 字数 を 8 文字 以下 に する よう 意識 的 に 管理 し な けれ ば な り 
ませ ん 。 


階層 構造 の ファ イル 管理 

ディ スク な どの 外部 記憶 装置 の 容量 は , 一 昔 前 と は 比べ も の に な ら な い ほ ど 増 加 し まし た 。. 
X68000 で も 。 約 1M バイ ト の フロ ッ ピ ー デ ィ ス ク ・ ド ライ ブ を 2 台 内 蔵 し , 最高 40M バイ ト の 
ハー ド デ ィ スク を 15 台 まで 接続 する こと が で きま す . こう な る と 当然 1 つの 記憶 媒体 に は いる 
ファ イル の 数 も 増え て きま す の で 。 その まま で は ファ イル の 数 が 多 す ぎ て , か えっ て 不便 に な っ 
で も まい ます 。 

そこ で 。Human68k で も 階層 ディ レク トリ 構造 と いう 概念 を 取り 入れ て いま す . これ は ディ レ 
クト リ の な か に , さら に ディ レク トリ を 作る こと で ファ イル の 内 容 や 用 途 に 応じ て , 分 類 。 整理 
する こと が で きる と いう も の で す . 


田 デバ イス こと ファ イル の 同格 化 

Human68k で は 。 ディスク 上 の プロ グラ ム や デー タ は も ちろ ん , ディ スプ レイ や ブリ ンタ な ど 
の 周辺 装置 も 含め て 。 すべ て を バフ ァイル” と し て 扱い ます . で すか ら , コマ ンド の 実行 結果 を 
画面 に 出し た り デ ィ ス ク に 格納 し た りす る と き に , デバ イス と 通常 の ファ イル と の 違い を ユー 
ザー プロ グラ ム で 意識 する 必要 は それ ほど な く 。 コ マン ドラ イン で 容易 に 入出 力 の 相手 先 を 変更 
する こと が で きま す . 

表 2.2 に は 。 Human68k で 用 意 さ きれ て いる ,。 デバ イス ファ イル を 示し て お きま す . 





| CON | キー ボー ド か ら の 入力 , 画面 へ の 出力 を 行う と き に 使用 する 

| AU | 財 (RS-232C) を 通じ て 入山 を 行う とき に 使用 する 
リア ル タ イ ムク ロッ ク の 制御 等 を 行う ユー ザー か ら 利 用 で き な い 
| PRN 。 | プリ ンタ へ の 出力 に 使用 する (漢字 コー ド に 対応 し て いる ) 
プリ ンタ へ の 出力 に 使用 する (ビッ トイ メー ジ 出 力 等 に 使用 ) 
| PCM | APCM アマ イメ と 入出 カ を 行う を き に 使用 る 
| OPM | FM 音源 デバ イス へ 出力 する と き に 使用 する 


注 :*PCM′ は PCMDRV.SYS, “OPM” は OPMDRV.X と いう ファ イル (デバ イス ドラ イ バ ) を , シス テ 
ム 超 動 時 に 組み 込ま な けれ ば 使用 で き な い . 



























表 己 選 デバ イス ファ イル 
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2 草 オペ レー ティ ング シス テム Human68k 


己 ./ つ Human ら 8 コ kK の コン フィ ギュ レー ショ ン 


Human68k の シス テム ディ スク は , 5 イン チ 2HD タイ プ の フロ ッ ピ ー デ ィ ス ク 1 枚 で 構成 さ 
れ て いま す 。 こ の ディ スク に は Human68k 本 体 の ほか に , いく つか の 外部 コマ ンド や , 漢字 変換 
の た め の フ ロン ト エ ンド ・ プ ロ セ ッ サ も 収め られ て いま す . 

Human68k の 起動 は . シス テム ディ スク を ディ スク ドラ イブ に 挿入 し て ,。 リ セッ ト ボ タン を 押 
す だ け で す が 。MS-DOS と 同様 に 。 CONFIG.SYS ファ イル で は いく つか 設定 を 行う こと が で き 
ます 。 

また だ た, アプ リケーション や コマ ンド は ,。 プ ログ ラム の 実行 環境 を 決定 する 環境 変数 と 呼ば れる 
パラ メー タ を 設定 する 必要 が あり ます . 

この よう な , さま ざま な 設定 を コン フィ ギュ レー ショ ン と 呼ん で いま す が 。Human68k を 使い 
始め る 前 に は ,。 か な ら ず し て お か な けれ ば な ら な いも の で す . この 設定 の いか ん に よっ て ,。 プロ 
グラ ム の 開発 効率 は 大 きく 影響 を 受け ます . 








己 己 1 CUONFIG.SY ら の 設定 


Human68k は 起動 時 に ,。 シス テム を 読み 込ん だ ディ スク の ルー トディ レク トリ に CONFIG. 
SYS” と いう 名 前 の ファ イル が ある か どう か を 検索 し ます . も し , この ファ イル が 見 つか れ ば , 
そこ に 書き 込ま れ て いる 内 容 に 従っ て ,。 シス テム が 動作 する 環境 を 設定 し ます . 見 つか ら な い 場 
合 は , HUMAN.SYS が 最初 か ら も っ て いる 値 に 従っ て 環境 を 設定 し ます . 

CONEFIG.SYS ファ イル で は ,。 表 2.3 の 8 つの 機能 を 設定 する こと が で きま す . 

MS-DOS ver.2.11 と 比べ , Human68k で あら た に 追加 され た も の に ヾ BELL” が あり ます . こ 
れ は , BASIC な ど で エ ラー が 発生 し た と き に 鳴る ビー プ 音 を 設定 する も の で す .。 ビー プ 音 の デー 
タ と し て 使え る の は , 通常 は AD-PCM の 15.6KHz で サン プリ ング され た デー タ で す 。 BELL の 






mms |  * ーー s+ - amxs_ 
CTRL+C の チェ ッ ク 機 能 の 設定 
ディ スク バッ ファ 数 の 設定 
起動 時 に 組み 込む デバ イス ドラ イ バ の 指定 
FILES 同時 に オー プン で きる 最大 の ファ イル 数 の 設定 
SHELL 起動 後 の シ ェ ル の 指定 
ベリ ファ イ 機 能 の 設定 


表 己 CONFIG.SY ら 8 で 設定 で きる 項目 


















4 の 


2.2 Human68k の コン フィ ギュ レー ショ ン 


指定 に は 。 これ を 収め た ファ イル の 名 前 を 指定 し ます . BELL を 指定 し な か っ た り , ファ イル が 
な か っ た り し た 場合 に は 。 ビー プ 音 は 鳴り ませ ん 。 


選 .. 選 環境 変数 の 設定 

環境 変数 (環境 文字 列 ) は 。 シス テム が 保持 し て くれ る 変数 で ,。 ユー ザー プロ グラ ム か ら DOS 
コー ル を 利用 し て 参照 し た り 設定 する こと が で きま す . コマ ンド シェ ル か ら は SET コマ ンド で 
行い ます . 

環境 変数 の 目的 は 。 プロ グラ ム が 実行 され る 環境 を 設定 する こと で す . た と えば 


SET path 三 A :\BIN ij Ai:\CC iA:\SYS iA:\ 
と Ka う コ マシ ンド ライ ン を 実行 する と 。 
path =A :\BIN ji Ai\CC\A EE\SYS iA II 半 


と いう よう に 。 "path” と いう 環境 変数 が 設定 され ん れ ます. プロ グラ ム 中 か ら は “path” と いう 環境 
変数 を 参照 し て 。 外 部 コマ ンド を 検索 する サー チ パ ス を 得る こと が で きま す . この よう に 。 プロ 
グラ ム の 実行 の 際 に 必要 と な る 情報 を 環境 変数 と いう 形 で プロ グラ ム に 伝え る こと に より 。 プロ 


に 任 さ れ て いる わけ で す . た だ し 。 さき ほど 例 に あげ た path は , DOS が 外部 コマ ンド の 検索 の た 
め に 参照 し て いま す . 
な お 。 環境 変数 に 関し て 注意 すべ きこ と に は 。 次 の 2 つが あげ られ ます 。 


・ 環 境 変数 は 半角 英文 字 の 大 文字 , 小文字 を 区 別 する 

た と えば , “path” と “PATH" は 違う 環境 変数 で ある . な お , Human68k で は コマ ンド 
シェ ル か ら 半 角 英 小文字 を 含む 環境 変数 を 設定 する こと が で きる 

・ 親 プロ セス か ら 子 プロ セス に 渡さ れる 環境 変数 は , 親 の 環境 変数 その も の で ある 

つま り , 子 プ ロ セ ス 側 で 環境 変数 を 退避 せ ず に 変更 する と , 親 プ ロ セ ス の 環境 変数 も 変更 
きれ で し まう 


だ だ し 。 後者 に つい て は 。 コマ ンド シェ ル か ら あ ら た に コマ ンド シェ ル を 起動 し た 場合 。 子 プ 
ロ セ ス 側 の コマ ンド シェ ル が 自分 自身 で あら た な 領域 を 確保 し , 親 の 環境 変数 を コピ ー し て いま 
す の で , 見 か け 上 は 別 の 環境 を も っ て いる よう に 見 えま す . 

Human68k 上 で プロ グラ ム を 作成 する た め に 必要 な 環境 変数 に は , 次 の よう な も の が あり ま 
避 。 
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2 草 オペ レー ティ ング シス テム Human68k 


・ 階 層 デ ィ レ クト リ 内 の 外部 コマ ンド の 検索 (path) 

・ テ ン ポ ラリ ファ イル を 作成 する 場所 の 指定 (temp) 

・ ラ イブ ラリ ファ イル の 格納 され て いる ディ レク トリ の 指定 (Iib) 

・ イ ンク ルー ド フ ァイル の 格納 され て いる ディ レク トリ の 指定 (include) 


コマ ンド シェ ル は 。 外部 コマ ンド を 実行 する と き 。 カ レン トディ レク トリ に 目的 の コマ ンド が 
ある か どう か を 調べ , な い 場 合 に は path に 設定 され て いる ディ レク トリ を 順に 検索 し て , 目的 の 
コマ ンド ファ イル が 見 つか っ た 時 点 で 読み 込ん で 実行 し ます . 

また 。COMMAND.X や ASJX な どい くつ か の コマ ンド は 。 ディスク 上 に 作業 用 と し て 一 時 的 
な ファ イル (テン ポラ リフ ァイル ) を 作り ます . temp は この テン ポラ リフ ァイル を 作成 する ディ 
レク トリ を 指定 する 環境 変数 で す . ここ に , A : 壮 や C : TMP と いっ た パス を 設定 し て お け ば , 
COMMAND.X や ASJX と いっ た コマ ンド は, 環境 変数 temp を 参照 し て テン ポラ リフ ァイル を 
作る ディ レク トリ を 決定 し ます 。 も ちろ ん , ユー ザー の 作っ た プロ グラ ム の な か か ら で も , この 
環境 変数 を 参照 し て テン ポラ リフ ァイル を 作成 する 場所 を 決定 する こと が で きま す . テン ポラ リ 
パス が 定義 S8 き れ て いな い 場 合 , テン ポラ リフ ァイル が 作成 され る 場所 は コマ ンド に よっ て 異な り 
ます . COMMAND.X は カレ ント ドラ イブ の ルー トディ レク トリ に , LK.X※ は カレ ント ドラ イブ 
の カレ ント ディ レク トリ に ,。 それ ぞ れ テン ポラ リフ ァイル を 作成 し ます . 

また , テン ポラ リ パ ス で 指定 し た ドラ イブ が 書込み 不可 能 の と き は , テン ポラ リフ ァイル を 作 
成す る コマ ンド の 実行 が 中 止 さ きれ て し まい ます 。 


ご ビ ・ つ コマ ンド シェ ル 





COMMAND.X は 。 ユー ザー が 入力 し た コマ ンド を 解釈 し て 実行 する 役割 を 担っ て いま す . 
DOS と は 別 の ファ イル に な っ て いま すか ら , ユー ザー が も っ と 多 機 能 な シェ ル を 作成 し て COM- 
MAND.X と 取り 替え て し まう こと も で きま す .。 も ちろ ん , DOS に は な ん の 変更 も 加え る 必要 は 
あり ませ ん も し , この よう な 構造 に な っ て いな けれ ば , コマ ンド 解析 部 分 を 改良 する た め だ け 
に 。 Human68k の シス テム 全体 を 変更 し な けれ ば な ら な く な っ て し まい ます . 

それ で は ,。 コマ ンド シェ ル が どの よう な 働き を し て いる の か を 見 て み ま し ょ う . 


己 d.1 コマ ンド の 形式 


COMMAND.X に は , 利用 頻度 が 高い と 思わ れる コマ ンド が いく つか 内 蔵 さ きれ て いま す .。 その 
ほか いく つか の コマ ンド は , ディ スク な どの 人 外部 記憶 装置 に ファ イル と し て 格納 され て いま す . 
前 者 を 内 部 コマ ンド と 呼ぶ の に 対し て , 後者 を 外部 コマ ンド と 呼び ます . また , 外部 コマ ンド に 
は いく つか の 種類 が あり ます . 表 2.4 に , 現在 の 内 部 コマ ンド と 外部 コマ ンド の 一 覧 を 示し ます . 


っ 0 
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亀 付属 の シス テム ディ スク に 格納 され て いる 外部 コマ ンド 


コマ ンド の 機能 


ATTRIB ファ イル お よび ディ レク トリ の 属性 の 設定 , 解除 
BACKUP き 2 ハードディスク の 内 容 を フロ ッ ピ ー デ ィ ス ク ヘ へ パッ クア ッ プ 


CHKDSK 
COPY2 ハー ド デ ィ スク の 内 容 を フロ ッ ピ ー デ ィ ス ク へ 退避 また は 復帰 
CUSTOM 
DISKCOPY 


ドラ イブ の 種類 や 状態 の 表示 , ドラ イブ 名 の 交換 

ファ イル 内 容 を 1 バイ ト ご と に 16 進数 で 表示 

2 つの ファ イル の 内 容 の 比較 

ファ イル 中 の 指定 文字 列 の 検索 

FORMAT 
ファ ンク ショ ン キ ー な どの 特殊 キー の 設定 

ファ イル の 移動 

ファ イル の 内 容 を ペー ジ 単 位 に 整形 し て , 指定 ファ イル に 出力 


不良 セク タ を 含む ファ イル や ディ スク の 修復 


コマ ンド 名 






















大 
m 
で 





RESTORE ま 2< BACKUP コマ ンド で バッ クア ッ プ され た ファ イル の 復元 
SORT 行 単 位 で の デー タ の 並 替え 

RS-232C シリ アル イン ター フェ イス の パラ メー タ の 設定 
SWITCH メモ リス イッ チ の 設定 
SYS Human68k の シス テム ファ イル の 転送 
TREE まき 1! 階層 ディ レク トリ 構造 の ツリ ー 形 式 で の 表示 


外字 の 作成 , 登録 , 削除 


注 1 は , X68000-ACE (CZ-601C-GY, CZ-611C-GY) と C Compiler PRO-68K に 付属 し て いる . 
潤 2 は, X68000-ACE の み に 付 属し て いる . 
注 1. の 2 いずれ も X68000(CZ-600C) に は 付属 し て いな い . 






但 コ マン ド シ ェ ル の 内 部 コマ ンド 
コマ ント 名 
BREAK CTRL 二 C の チェ ッ ク ツク 機能 の 設定 
CHDIR(CD) カレ ント ディ レク トリ の 変更 ・ 表 示 
キャ ラク タ 画 面 の 消去 
COPY ファ イル の コピ ー 
標準 入出 力 デ バイ ス の 変更 
DATE 日 付 の 表示 ・ 設 定 


DEL( ERASE ) ファ イル の 削除 



















wkom(wo) 


PATH 
PROMPT プロ ンプ ト の 設定 


外部 コマ ンド を 検索 する た め の サ ー チ パス の 表示 , 設定 





MM 





か ょ 
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ディ レク トリ の 削除 
キャ ラク タ お よび グラ フィ ッ ク 画 面 の モー ド の 設定 
SET | Wo 表示 役 pb> 
テン ポラ リフ ァイル を 作成 する ディ レク トリ の 表示 , 設定 
時 刻 の 表示 ・ 設 定 

ファ イル を テキ スト と し て 表示 

| VER 。 現在 の Human68k の バー ジョ ン の 表示 
| VERIFY | ディ スク 書込み 時 の チェ ッ ク 機 能 の 設定 





























ディ スク の ボリ ュー ムラ ベル の 表示 ・ 


但 バッ チ 処 理 コ マン ド 










バッ チ 処 理 の 一 時 停止 


表 ど .4 内 部 プア バッ チ プ コマ ンド と 付属 し て いる 外部 コマ ンド 


シス テム ディ スク に 付属 し て いる 外部 コマ ンド は , AUTOEXEC.BAT を 除い て すべ て XX% 形式 
で す が 。 こ の ほか に も 外部 コマ ンド の 形式 と し て , ZZ 形式 ,。R 形式 , バッ チ フ ァイル が あり ます . 
X。Z, R 形式 の コマ ンド は 68000CPU が 直接 実行 可能 な ファ イル で す . 

バッ チ フ ァイル は 。 複数 の コマ ンド を いく つか 書い た ファ イル で ,。 コマ ンド シェ ル が 読み 込ん 
で 解釈 し 。 実行 し ます . な お ,。 これ ら の コマ ンド は 拡張 子 に よっ て 判別 き ミ れ , それ ぞ れ ヾ .X?, 
2s >。 BT だ な っ な MS 引 了 すず 

以下 で は 。 XX。Z。R 形式 の 外部 コマ ンド に つい て 解説 し ます . 


田 X 形 式 

この 形式 の ファ イル は ,C コン パイ ラ や アセ ン ブ ラ を 経て , 最終 的 に リン カ が 生成 する 実行 可能 
ファ イル で す の で , 最も 一 般 的 な ファ イル 形式 で ある と いえ ます . 

まず 。 形式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト を 表 2.5 に 示し ます . 


か 


2.3 コマ ンド シェ ル 







へ 


att を て を  * ー | = マタ ーー 
+$O000000 | 散 。 | $4855 X 形式 の ID 
+$000002 | 。 要 $0000 予約 領域 


3 た さ ヽ ュ トキ ヒ ビュ に 


[の 






「 の 











BASE_ADDRESS か ら ロ ー ド し た 場合 の 実行 
十 SO0000C TEXT_SIZE TEXT セク ショ ン の 大 き さ 
十 $000010 DATA SIZE DATA セク ショ ン の 大 き さ 


HEAP SIZE BSS と STACK セク ショ ン の 合計 の 大 き さ 


ニラ kc | | eo ボ 


+$O0001C SYMBOL TBL SIZE | シン ボル テー ブル の 大 き さ 


十 $000014 





十 $O00020 $00 予約 領域 (現在 は すべ て $00) 
十 $O00040 TEXT SIZE TEXT セク ショ ン の 内 容 
土 OFFSET 1 DATA SIZE DATA セク ショ ン の 内 容 


十 OFFSET2 RELOC_TBL SIZE 


アド レス の リロ ケー ショ ン の た め の テ ー ブ ル 


の 内 容 


シン ボル テー ブル の 内 容 








土 OFFSET3 | SYMBOL TBL SIZE 


OFFSET1 = $40 十 TEXT _SIZE 
OFFSET2 = OFFSET1 十 DATA SIZE 
OFFSET3 = OFFSET2 + RELOC_TBL SIZE 





表 ら . 呈 X 形 式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト 


X 形式 の 実行 可能 ファ イル は 。 任意 の アド レス に 読み 込ん で 実行 で きる 構造 に な っ て いま す . 
た だ し , 任意 の アド レス と いっ て も ,。 シス テム で 予約 され て いる 領域 に は 読み 込む せこ と が で きま 
せん . また 。 読み 込む アド レス は CPU の 制約 に より , か な ら ず 偶数 アド レス で な けれ ば な り ま せ 
ん . 通常 の 場合 , Human68k が X 形 式 の 実行 可能 ファ イル を 読み 込む アド レス を 決定 する の で , 
Human68k 上 で ユー ザー が アセ ン ブ ラ な ど で プ ログ ラム を 作成 し た り , 実行 する と き に は , 読み 
込ま れる アド レス を 意識 する 必要 は は ほとんど あ り ま せん . 

さて , Human68k は X 形式 の 実行 可能 ファ イル を 読み 込ん で , 実行 する 際 に , 絶対 的 な アド レ 
ス の 値 に 依存 し て いる 箇所 を 補正 し ます . その と き 重 要 な 役割 を 果たす の が 図 2.5 に 示し た リロ 
ケー ショ ン テ ー ブ ル で す 。 この テー ブル に は 。 ファ イル 中 で 絶対 的 な アド レス の 値 に 依存 し て い 
る 部 分 の 場所 を 示す デー タ が 格納 され て お り , DOS は この テー ブル を 参照 し な が ら フ ァイル を 読 
み 込 む ど ア ドレ ス に 合わ せ て , 絶対 的 な アド レス の 値 に 依存 し た 部 分 を 補正 し ます . 

また ,。 シン ボル 情報 を 付加 する こと が で きる こと ,。 プロ グラ ム の 先頭 以外 か ら も 実行 する こと 
が で きる と いう 2 点 は ,。 この あと 解説 する 形式 や R 形式 より 優れ て いる 点 と し て あげ る こと が 
中 。 

この よう に , XX 形式 の 実行 可能 ファ イル は 作成 ・ 実 行 に - あ たって, な る べく ユー ザー に 負担 を か 


け な い よう な 構造 に な っ て いま す . 


うう 
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+0 +2 。 4 + 6 + 8 


$0006 
$0006 十 $001A 三 0020 


$0020 十 $0032 三 $0052 


$0052 十 $060E ニ $0660 





・ 


ロー ドア ドレ ス に 依存 し て いて , 再 配置 し な けれ ば な ら な い 部 分 
図 ど リロ ケー ショ ン テ ー ブ ル の 構造 


一 ノ 形 式 

X 形式 の ファ イル を CCompiler PRO-68k に 付属 の コン バー タ (CV.X) で 変換 する こと で 得 ら 
れる 実行 可能 ファ イル で す . この 形式 は X 形式 と 対照 的 で 。 コンバー ト し た 際 に 決定 し た アド レ 
ス に 読み 込ん で 実行 きれ ます . Human68k は 。 かならず ZZ 形式 の 実行 可能 ファ イル を その アド レ 
ス に 読み 込 も うと する の で , その アド レス が シス テム 領域 や RAM 未 実 装 領 域 を 指し て いる 場合 
に は 実行 する こと が で きま せん . Human68k の シス テム 領域 に は 明確 な 定義 が あり ませ ん (バー 
ジョ ン な ど に よっ て 変わ る 可能 性 が ある ) の で , この 形式 の プロ グラ ム を 作成 する 場合 は 注意 を 要 
に ます 。 









Fa ss 生 和 * サー 
rsoooooo 
+ooo96 | 4 | pAAsgE | PA テー の セク ショ ン の 大 ss 
rsoooooA 
rooooE |  s | soo | WWwkGg を e す < て e60D 

ミー 

| 3 
















+$OO0016 実行 開始 番地 (ロー ド す べき 番地 で も ある ) 


十 $OOO0 1A $FFFF Z 形式 の 2 番目 の ID 
+$O0001C | TEXT SIZE ーーー TEXT セク ショ ン の 内 容 


填 OFFSET1 | DATA SIZE DATA セク ショ ン の 内 容 
OFFSET 1 = $OO001C+ TEXT SIZE 


表 己 .5 形式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト 





っ 4 
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主 な 用 途 と し て は 。 他 の コン ピュ ー タ の ソフ トウ ェ ア 開 発 (ROM に 書き 込む プロ グラ ム の 開 
発 ) な ど が 考え られ ます 。 
表 2.6 に Z 形 式 の ファ イル フォ ー マ ッ ト を 示し ます . 


画 昌 形 式 

X 形式 の 実行 可能 ファ イル を コン バー タ (CV.X) で 変換 し て 得 ら れる ポジ ショ ン イ ン デ ィ ペ ン 
デン ト な 実行 可能 ファ イル で す .。 ポジ ショ ン イ ン デ ィ ペ ン デ ント と は , XX 形式 の よう に 読み 込み 
時 に プロ グラ ム 本 体 に 手 を 加え な く て も ,。 任意 の アド レス に 読み 込ん で 実行 で きる と いう こと で 
す ( シ ステ ム 領 域 や 奇数 アド レス へ は 読み 込む せこ と は で き な い ). し た が っ て , この 形式 の ファ イ 
ル に は , X 形式 の ファ イル に つい て くる よう な 補助 情報 (ヘッ ダ な ど ) は いっ さい 必要 な く ,。 純粋 
に プロ グラ ム だ けが ファ イル と し て 格納 され て いま す 。 余計 な 情報 が つい て いな い 分 。 ファ イル 
の 大 き さ も 小さ く , また , 読み 込む 時 間 も 短 縮 さ れる と いう 利点 が あり ます . また , この 形式 の 
コマ ンド を 実行 する と き は 。 読み 込む べき アド レス を Human68k が 決定 する の で 。 ユー ザー が ア 
ドレ ス を 意識 する 必要 は あり ませ ん . 

し か し , プ ログ ラム の 作り や すさ と いう 点 で , R 形式 は X え 形式 の コマ ンド に 劣り ます 。 な ぜ な 
ら 。 アセ ン ブ リ 言語 の レベ ル に お いて , 絶対 的 な アド レス の 値 に 依存 し た 記述 が で き な い か ら で 
す . つま り ,。 すべ て の 命令 に お いて 実効 アド レス が 相対 アド レッ シン グ 形 式 で な けれ ば な ら な い 
の で す . すなわち 。 実効 アド レス は プロ グラ ムカ ウン タ か 。 アド レス レジ スタ と の 相対 で 表 さ れ 
て いな けれ ば な り ま せん 。 

また , アドレッシング モー ド の 限界 に より , R 形式 で 32K バイ ト 以 上 の 大 き さ の コマ ンド を 作 
成す る の は 困難 で す . それ か ら C Compiler PRO-68k が 出力 する X 形式 の 実行 可能 ファ イル は 
R 形式 に は 変換 で きま せん . つま り , R 形 式 の 実行 可能 ファ イル を 作成 する に は , プロ グラ ム を 
アセ ン ブ リ 言語 で 記述 し な けれ ば な り ま せん .。 ファ イル の 大 き さ や 読み 込む 時 間 を 削減 し な けれ 
ば な ら な い プ ログ ラム は R 形 式 に する 価値 が ある と いえ ます が , その 他 の 場合 は X 形 式 に する 
の が 一 般 的 で す . 


どら. 己 コマ ンド の 検索 と 実行 


コマ ンド の 実行 は 。 プ ロン プ ト が 表示 され て いる 状態 で 。 コ マン ド を 入力 する こと で 行い ます . 
だ と ば. 炎 の よう 区 コマ ンド ライ ンジ ち 入力 し て 実行 きせ た だ と し まま しょう 、 


DISKCOPY AI B: 


コマ ンド シェ ル は , まず 入力 され た コマ ンド が 内 部 コマ ンド で ある か どう か を 調べ ます . DISK- 
COPY は 内 部 コマ ンド で は な い の で 。 カレ ント ディ レク トリ 内 を 次 の 順序 で 検索 し ます . 


は) 
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DISKCOPY.R 一 DISKCOPY.Z 一 DISKCOPYX 一 DISKCOPY.BAT 


どれ か が 見 つか っ た 時 点 で 。 その ファ イル を メモ リ 上 に 読み 込ん で 実行 し ます . も し , DISK.- 
COPY 失 と DISKCOPYJBAT と いう ファ イル が 同じ ディ レク トリ に あっ た 場合 は 。 DISK- 
COPY.BAT で は な く 。DISKCOPY.X が 実行 きれ る こと に な り ま す . 

また だ た, カレ ント ディ レク トリ に 該当 する ファ イル が 見 つか ら な か っ た 場合 は 。 環境 変数 path を 
誠 照 し 。 そこ に 設定 され て いる ディ レク トリ を 順に 検索 し ます . た と えば 


path=A :\BIN j Ai\LOCAL DB :\BIN 


バッ チ フ ァイル の 実行 


バッ チ フ ァイル を メモ 
リ 上 の 領域 へ ヘ ロ ー ド する 


先頭 行 に 注目 する 





V 


2 0 多 9 置換 え 
環境 変数 展開 


その 1 行 を コマ ンド ラ 
イン と みな し て 実行 する 


人 M 


N 


中 止 す る か 否 か の メッ で 
セー ジ 出 力 次 の 行 に 注目 する 


異 常 終了 


己 選 バッ チ フ ァイル の 実行 
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23。 コマ ジェ エ 孝 。 


と 設定 され て いる と 。 コマ ンド シェ ル は A : 半 BIN の な か を 。 次 に A : LOCAL。B : BIN の 
順 で 検索 し て いき ます 。 これ ら の ディ レク トリ を 検索 し て も 見 つか ら な か っ た 場合 は 。 


* コ マン ド ま た は ファ イル が 違い ます ? 


と いう メッ セー ジ を 出力 し て 。 コ マン ド の 入力 待ち に 戻り ます 。 
な お , バッ チ フ ァイル は 。 コマ ンド シェ ル が 用 意 し た 作業 領域 に 読み 込ま れ 。 ファ イル 中 の 各 
行 を コマ ンド ライ ン と 同様 に , 順に 実行 きれ ます ( 図 2.6)。 


己 3.93 1/ 有 の リダイレクト と バ パイプ ブ の し くみ 

Human68k で は 。 キー ボー ド , スク リー ン を は じ め 。 プ リン タ や 補助 入出 力 装 置 な ども ファ イ 
ル と し て 扱っ て いま す . つま り , X68000 に 接続 きれ て いる 周辺 装置 と の 入出 力 を , ディ スク 上 の 
ファ イル の 読み 書き と 同様 に 扱う こと が で きる わけ で す . た と えば , 普通 は 画面 に 出力 され て い 
た コマ ンド の 処理 結果 を , プリ ンタ へ 出力 し た り 。 ディ スク 上 に ファ イル と し て 記録 する こと が 
目 由 に 行え を る わけ で す . この よう に 入出 力 の 相手 先 を 切り 換え る こと を IO の リダイレクト と 呼 
ん で いま す 。 

コマ ンド シェ ル で は 。 標準 入出 力 と 呼ば れる 入出 力 先 に ,。 ファ イル や デバ イス を 自由 に 割り 当 
て る こと が で きま す . で すか ら , 標準 入力 と いわ れる 仮想 的 な 入り 口 か ら , 必要 な デー タ を 入力 
し , 標準 出力 と いわ れる 仮想 的 な 出口 へ 処理 結果 を 出力 する よう に プロ グラ ム を 設計 し て お け ば , 
コマ ンド ライ ン か ら デ ー タ の 入出 力 先 を 自由 に 設定 で きま す 。 この よう な 機能 が 備わっ て いる こ 
と で , プロ グラ ム の な か で 処理 結果 の 入力 元 や 出力 先 を 何 に する か と いう こと を 意識 する 必要 が 
が ながく が ます 、 

また , 標準 出力 先 は ,。 ファ イル や デバ イス だ け で は な く ,。 他 の コマ ンド の 標準 入力 へ つなぐ こ 
と も で きま す . この よう に コマ ンド 間 で 処理 結果 を 受け 渡し する こと を パイ プ 処 理 と いい ます . 
パイ プ 処 理 を 使う こと で , コ マン ド の 出力 結果 を その 次 の コマ ンド で 処理 きせ る こと が で きま す . 


田 |/ の リダイレクト 

標準 入出 力 を 用 いる と , キー ボー ド か ら 画 面 へ と いう 処理 の 過程 を , ディ スク 上 の ファ イル か 
ら RS-232C へ と 変更 する こと が で きま す . つま り , 標準 入力 を “A : TEST.TXT” に , 標準 出 
力 を YAUX? に 変更 し て や れ ば よい の で す .。 これ が 1/O の リダイレクト の 動作 に ほか な り ま せん . 
実際 の I/O の リダイレクト の 例 と し て , SORT コマ ンド を 使っ て み ま す . SORT コマ ンド は 引 
数 が 何 も 指 定 さ れ な いと , 標準 入力 か ら の デー タ を 行 単位 で 並べ 替え て , 標準 出力 に 出力 し ます . 
引数 に ファ イル が 指定 され る と ,。 その ファ イル か ら デ ー タ を 読み 込み , 行 単位 で 並べ 替え て , 標 
準 出力 に 出力 し ます . 

次 の コマ ンド ライ ン を 考え て み ま す 。 


う / 
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SORI LSELIXI ろう LMSISEI 


コマ ンド シェ ル は まず 。 カレ ント ドラ イブ の カレ ント ディ レク トリ 上 に LIST.TXT" LIST. 
SRT” を オー プン し て アク セス 可能 に し ます . そし て 標準 入力 に “LIST.TXT” を , 標準 出力 に 
*LIST.SRT? を 割り 当て ます . その 後 コ マン ド の 本 体 の SORT コマ ンド を 読み 込ん で 実行 し ま 
す . 

SORT コマ ンド は 実行 中 に 標準 入力 か ら デ ー タ を 入力 し て 。, 行 単位 で 並べ 替え を 行い , 結果 の 
デー タ を 標準 出力 へ 出力 し て いる だ け で す 。 ディ スク と 入出 力 し て いる と いう こと を , SORT コ 
マン ド は 意識 し て いま せん . 

SORT コマ ンド 終了 後 。 コマ ンド シェ ル は “LIST.TXT? と “LIST.SRT” を クロ ー ズ し 。 標 
準 入出 力 を も と に 戻し ます 。 こ うし て “LIST.T 多 T” を 並べ 替え た “LIST.SRT" と いう ファ イ 
ル が ディ スク 上 に 生成 され ます . 

な お 。 出力 の リダイレクト の と き に ,。 バ >” の 代わ り に > ッ >? を 使う と 既存 の ファ イル に 追加 
され ます . た と えば , 


DIR Ai >> SAMPLE 


と し て 実行 する と, “SAMPLE” の 内 容 に ., AF ドラ イブ の カレ ント ディ レク トリ の 内 容 が 連結 さ 
れ ま す . 


弄 バイ ブ 

パイ ププ は リダイレクト の 応用 と 考え る こと が で きま す 。 リ ダイ レク ト で は , 出力 先 を ファ イル 
か デバ イス に 指定 し て いま し た が , パイ プ は 出力 先 を 他 の コマ ンド の 標準 人 力 に つなぎ ます.。 こ 
れ に よっ て 。 あ る コマ ンド の 処理 結果 を 他 の コマ ンド へ 直接 送り 。 連続 し て 処理 を 行う こと が で 
きま すず 。 

例 と し て 。 次 の ゆ よ うな コマ ンド を 実行 し て 劇 ま し ふう 。 


DIR | SORT 


コマ ンド シェ ル は 。~ | ? を 見 つけ る と ,。 IT/O の リダイレクト に より DIR コマ ンド が 標準 出力 に 
出力 し た デー タ を 一 時 的 に ディ スク に 格納 し ます 。 次 に , SORT コマ ンド の 標準 入力 に , さき ほ 
ど 作 成 し た ファ イル を リダイレクト し ます 。 こう し て 見 か け 上 は DIR コマ ンド の 出力 と SORT 
コマ ンド の 入力 が パイ プ で つなが っ た よう に な る わけ で す . 

Human68k の シス テム ディ スク に は ,。 パイ プ と と も に 使う こと を 前 提 と し た コマ ンド が 4 つ 用 
意 き さき れ て いま す . 


・FIND … 指定 され た 文字 列 を 検索 する 
・MORE … テキ スト を 1 画面 ずつ 区 切っ て 出力 する 


っ の 


Z.4 DOS 
・PR  … 入力 され た デー タ を ペー ジ 単 位 で 整形 し て 出力 する 
・SORT … 入力 され た デー タ を 行 単位 で 並び 換え て 出力 する 


これ ら の コマ ンド は フィ ル タ と 呼ば れ 。 パ イプ と の 組合 せ で いろ いろ な こと が で きる 応用 稚 囲 
の 広い コマ ンド です.。 また 。 ディ スク に 格納 され て いる 普通 の ファ イル を 入力 に する こと も で き 
る よう 設計 され て いま す 。 


ら . ノ 4 DOB 


ここ で いう DOS と は 。 HUMAN.SYS に 含ま れ 。 次 に 示す 機能 を も っ て いる 部 分 を 指し ます . 
これ ら は , Human68k の 中 核 的 な 機能 と いえ ます . 








・ フ ァイル や ディ レク トリ の 扱い 
・ メ モリ の 確保 や その 開放 な どの 管理 
・ ブ ログ ラム の 実行 に 関す る 管理 
・ デ バイ ス と の 論 理 的 な デー タ 入 出力 


これ ら の 機能 は , サブ ルー チン の よう な 形式 で 用 意 き さき れ て お り , ユー ザー は この サブ ルー チン 
を 呼び 出す (DOS コー ル ) こ と で さま ざま な サー ビス を 受け る こと が で きま す . これら の サー ビス 
が 用 意 さ きれ て いる こと で ,。 ユー ザー プロ グラ ム 内 で 細か な 制御 を 行わ な く て も すみ ます し , な に 
より ハー ドウ ェ ア に 依存 し な く な る の で , 将来 的 に も プロ グラ ム の 動作 が 保証 され る こと に な り 
肖 ま 。 

すでに 紹介 し た よう に , X68000 の 動作 に 欠か せな い 周 辺 装置 ,。 た と えば コン ソー ル ( キ ー ボ ー 
ド F と 画面 )。 リデル タイ ム * ク ロッ ク 。 デリ ンタ 。 シリ アル イン ター ジェ イス (RS-2320O)。 ディス 
ク ド ラ イブ (2HD フロ ッ ピ ー デ ィ ス ク 。, 容量 が 40M バイ ト ま で の ハー ド デ ィ スク ) な ど は は, 制御 プ 
ログ ラム で ある デバ イス ドラ イ バ が DOS と と も に , HUMAN.SYS に 内 蔵 き され て いま す . 


田 |)DS コー ル の 呼出 し 

68000CPU は 不当 命令 お よび 未定 義 命令 , 特権 違反 に よる 例外 処理 や 命令 トラ ッ プ と いっ た , 多 
く の 内 部 的 要因 に よる 例外 処理 を 発生 きせ る こと が で きま す . この な か で Human68k に と っ て 
重要 な の が , $FFxx と いう 未定 義 命令 に よる 例外 処理 で す . この 例外 処理 は ライ ン F エミ ュ レ ー 
タ と 呼ば れ て お り 。 も と も と 未定 義 命 令 を ソフ トウ ェ ア で エミ ュ レ ー ト する た め に 用 意 さ れ た も 
の 

表 2.7 に DOS コー ル の 一 覧 表 を 示し ます . 
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コー ル 番 号 シン ボル 名 機 能 
$FFOO _EXIT プロ セス の 終了 

_GETCHAR 票 準 入力 か ら 1 文字 入力 (標準 出力 に エコ ー) 

_PUTCHAR 票 準 出力 へ 1 文字 出力 

COMINP RS-232C 回 線 か ら 1 バ イト 入力 





$FF04 _ COMOUT RS-232C 回 線 へ 1 バイ ト 出 力 
_PRNOUT フリ ンタ へ 1 文字 出力 ーー 
栗 準 入力 か ら 1 文字 入力 , また は 標準 出力 へ 1 文字 出力 


票 準 入力 か ら 1 文字 入力 ( ブ プレー クチ ェ ッ ク な し ) 








$FFO6 
$FFO7 
$FFO8 





標準 入力 か ら 1 文字 入力 (ブレ ー ク チェ ッ ク あ り ) 
































準 入力 か ら 文字 列 を 入力 ( ブ プレー ク チェ ッ ク あ り ) 
| SFFOC | 。KFLUSH バッ ファ を 空 に し た 後 で キー 入力 
| SFFOF | DRVCTRL | ドラ イブ の 状態 の チェ ッ ク と 設定 
| SFF1O | CONSNS | 画面 出力 が 可能 か どう か チェ ッ ク 
|  $FF11 | PRNSNS プリ ンタ へ の 出力 が 可能 か どう か チェ ッ ク 
RS-232C 回 線 か ら の 入力 が 可能 か どう か チェ ッ ク 
$FF13 RS-232C 回 線 へ の 出力 が 可能 か どう か チェ ッ ク 
ドラ イブ 上 の ファ イル の 格納 状態 の チェ ッ ク 
| WFF18 | 。 一 一 - | 湊 字 変換 行 の 制御 
| SFF1A | GETSS | 標準 入力 か ら 文字 列 を 入力 (プレ ー ク チェ ッ ク な し ) 
ファ イル か ら 1 バ イト 入力 
$FF1C _FGETS ファ イル か ら 文 字 列 を 入力 
_FPUTC ファ イル へ 1 バイ ト 出 力 
FPUTS ファ イル へ 文字 列 を 出 カ 


スー パー バイ ザー モー ド と ユー ザー モー ド の 切替 え 


ALLGLOSE | ず aocg プ weW み の 胡 上 V'5 ボ や や ギ 5 ギ キ ギ キチ キ キ デ や キ ぎ ヤ ゼ 〔〒 





FNCKEY ファ ンク ショ ン キ ーー 等 の 設定 と 読出 し 
_KNJCTRL か な 漢字 変換 ファ ンク ショ ンコ ー ル の 呼出 し 
CONCTRL コン ソー ル へ 直接 出力 

KEYCTRL コン ソー ル か ら 直 接 入 力 





_INTVCS ベク タ の 設定 





_PSPSET ブロ セス 終了 時 の 情報 の 取得 





$FF27 
$FF28 


_GETTIM2 現在 の 時 刻 の 読出 し (1 秒 単 位 ) 
_SETTIM2 時 刻 の 設定 (1 秒 単 位 ) 
_NAMESTS ファ イル 情報 の 取得 
_GETDATE 現在 の 日 付 の 読出 し 


0 


〈 〇 つい 











Z.4 DOS 


の 
| srrzp | sermwe 





| eyrzE | vemm 
| SFF30 VERNUM OS の パー ジョ ン ナ ン バ ー の 取得 





| SFF31 | KEEPPR プロ セス の 常駐 終了 
$FF32 _GETDPB DPB (ドラ イブ パラ メー タ ・ ブ ロッ ク ) の 取得 


$FF33 _ BREAKCK プ ブレー クチ ェ ッ ク の ON/OFF 
_DRVXCHG ドラ イブ の 入 換 え 

INTVCG ベク タ の 取得 

ディ スク の 残り の 容量 の 取得 
ファ イル 情報 の 取得 

ディ レク トリ の 作成 

ディ レク トリ の 削除 

_CHDIR カレ ント ディ レク トリ の 変更 
_CREATE ファ イル の 作成 

ファ イル の オー プン 

ファ イル の クロ ー ズ 

ファ イル か ら 1 ブ ロッ ク 読 出し 
_WRITE ファ イル へ 1 ブロ ッ ク 書 込み 
_DELETE ファ イル の 削除 

$FF42 SEEK ファ イル ボイン タ の 移動 
$FF43 CHMOD ファ イル の 属性 の 変更 

$FF44 IOCTRL デバ イス ドラ イ バ と の 直接 入出 力 

ファ イル ハン ドル の 複写 (複写 先 は シス テム が 決定 ) 
ファ イル ハン ドル の 強制 複写 

CURDIR 現在 の カレ ント ディ レク トリ を 返す 

_MALLOC メモ リプ ブロ ッ ク の 確保 

メモ リプ ブロ ッ ク の 開放 

SETBLOCK メモ リブ ロッ ク の 大 き さ の 変更 

EXEC プロ グラ ム の ロー ド と 子 プ ロ セ ス の 起動 

_ EXIT2 プロ セス の 終了 (終了 コー ド を 返す ) 

_WAIT プロ セス の 終了 コー ド の 取得 

FILES ファ イル の 検索 (最初 の ファ イル ) 

_NFILES ファ イル の 検索 ( 火 の フ ァイル ) 

SETPDB 実行 プロ セス の 変更 

_GETPDB 現在 の プロ セス の 管理 ボイン タ の アド レス を 取得 
_SETENV 環境 変数 の 設定 

_GETENV 環境 変数 の 読出 し 





$FF37 _NAMECK 


$FF3B 
$FF3C 


_ CLOSE 


$FF40 


$FF46 
$FF47 
$FF48 
$FF49 
$FF4A 
$FF4B 
$FF4C 
$FF4D 








6 


2 草 オペ レー ティ ング シス テム Human68k 










べ ベリ ファ イフ ラグ の 設定 状況 の 読出 し 
| SFFs6 | RENAME | ファ イル 名 の 変更 と ファ イル の 天 動 。 
ファ イル の 日 付 ノ 時 間 の 設定 読出 し 

| srFS | plekmED | プロ ッ ク デ バイ ス か ら 直 短 和 00 
| srF4 | pkwmT | プロ ッ ク デ バイ スム 直 天 測 カ "=" WWW 


表 ど . フ DOS コー ル の 一 覧 


コー ル 番 号 シン ボル 名 






Human68k は 。 シ ステ ム 起 動 時 に ライ ン F エ ミュ レー タ の 例外 ベク タ に DOS コー ル 処 理 ル ー 
チン の 先頭 アド レス を 設定 し ます . その 後 。 プロ グラ ム 実 行 中 に $FF00--$FFFEF の コー ド を 令 
と し て 実行 し と よう と する と , ラ イン FE エミュレータ の 例外 処理 が 発生 し , DOS コー ル 処 理 ル ー チ 
ン に 制御 が 移り ます . 

DOS コー ル 処 理 ル ー チ ン で は , 例外 処理 を 発生 きせ た 和 命令 を 調べ , 上 位 8 ビッ ト が $FF だ っ た 
ら 下 位 8 ビッ ト の 値 を も と に 。 各 コー ル の 処理 ルー チン が サブ ルー チン コー ル さ れ ま す .。 な お , 
各 コ ー ル の 処理 ルー チン の エン トリ は , $001800 番地 か ら の DOS コール ベク タ に 格納 され て お 
り 。 シス テム は ここ か ら 各 処理 ルー チン の エン トリ を 調べ ます .。 ユー ザー が DOS コー ル の 処理 
ルー チン の エン トリ を 変更 する 場合 に は DOS コー ル $FF25( INTVCS) を 利用 し ます が , 変更 前 
の エン トリ の 値 は 退避 し て お き , も と に 戻せ る よう に プロ グラ ム す る ほう が 賢明 で す . 


田 HumanB8K が 管理 し て いる その 他 の 例外 処理 

前 述 し た よう に , オペ ラン ド の 番号 が 8---15 の TRAP 命令 は Human68k が 使用 し て いま す . 
個々 の 番号 に 割り 当て られ て いる 機能 を 表 2.8 に 示し ます . 

その 他 の 例外 処理 は 。 バス エラ ー や アド レス エラ ー。 不当 命令 な ど Human68k 上 の プロ グラ ム 
の 実行 に か か わる 部 分 が Human68k の 管理 下 に は いっ て お り ,。 それ ら の 例外 が 発生 する と プロ 
グラ ム の 実行 を 一 時 中 断 し て エラ ー 表 示 を 行い 。 その 後 の 処理 を 聞い て きま す . その た め , 従来 
の パソ コン に 比べ て プロ グラ ム が 暴走 する と いう 事態 は きわ め て 起こ り に くく な っ て いま す . 

な お , 表 2.8 の TRAP 命令 は Human68k が 管理 し て いる と は いっ て も 。 例外 ベク タ は ユー 
ザー が か ん た ん に 変更 する こと が で きま す が , 14。 15 以外 の TRAP 命令 は 。 呼出 し 先 の 仕様 が 公 
開 さ れ て いま せん の で , シス テム の 内 部 を 十分 理解 し て か ら 操 作 し な けれ ば な り ま せん . 
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POWER OFF 処理 と リセ ッ ト 

$58363801 一 本 体 前 面 の 電源 スイ ッ チ で パワ ー オ フ 
$58363802 一 外部 端子 より パワ ー オ フ 

$58363803 一 ソフ ト 的 に パワ ー オ フ 

他 の 値 ユリ セッ ト 


STOP キー が 入力 され た と き の 処 理 ( ハ ー ド ディ スク の シッ ピン グ 処 理 を 含む ) 
引数 : dO.b bitO = 0 一 STOP(CTRL+C) 
1 一 SHIFT STOP (CTRL+ ら S) 


COPY キー が 入力 され た と き の キ ャ ラク タ 画 面 ハ ー ド コピ ー 
引数 :dO.D = 0… 縮 小 コ ピー (1 色 ) 

1 一 拡大 コピ ー (1 色 ) 

2 縮小 コピ ー (4 色 ) 

3 拡大 コピ ー (4 色 ) 


エラ ー 表 示 と , その 後 の 処理 の 選択 
引数 :d7Ww ニニ エラ ー コ ー ド 


引数 : dO| = IOCS コー ル 番 号 
他 の レジ スタ の 使わ れ 方 は 各 IOCS コー ル に より 異な る 


表 戸 . ロ HumanB8k が 利用 し て いる THAP 命令 





己 .. | Ph 


Human68k で は , デー タ や プロ グラ ム は ファ イル と し て 扱わ れ ま すか ら , 外部 記憶 装置 に デー 
nih 
転送 が 行わ れん ます 。 つ まり “ファ イル を アク セス する ? と いう 作業 で 。 どの よう な 入出 力 で も 
行 を を が で き ある の で ず チ 。 

プロ グラ ム を 作成 する 際 に は , た いて い フ ァイル の アク セス が 必要 に な る の で 。 ここ で は 。 ファ 
イル を アク セス する た め の 手 続き に つい て 解説 し ます . 


一 ファ イル の オー プン 

通常 。 外部 記憶 装置 に 格納 され た デー タ で も , 入出 力 装置 と や り 取 りさ れる デー タタ でも, その 
内 容 に アク セス する に は ,。 まず ~ フ ァイル の オー プン ” と いう 手続 き が 必要 で す .。 Human68k は 。, 
プロ グラ ム か ら フ ァイル を オー プン する と いう 要求 を 受け る と , 指定 され た ファ イル が アク セス 
可能 か どう か を 調べ ます . 可能 な ら , Human68k に より 予約 さき され て いる メモ リ 上 の 領域 に ファ イ 
ル 管 理 情 報 を 格納 し ます . 

実は , Human68k の コン フィ ギュ レー ショ ン フ ァイル で ある CONFIG.SYS に 記述 され て いる 
"FILES= テ xx” と いう 1 行 は , この ファ イル 管理 情報 を 格納 する 領域 の 個数 を 決定 する も の な の で 
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す .。 つま り 。 Human68k は シス テム 起動 時 に CONEFIG.SYS を 読み 込み , “FILES=xx”" と いう 
1 行 に より オー プン され る ファ イル の 最大 数 を 知り , その 数 だ け フ ァイル 管理 情報 を 格納 する た 
め の 領 域 を 確保 し ます . 

ファ イル 管理 情報 に は ,。 ディ スク ファ イル な ら ば 。 ディ レク トリ エン トリ に 格納 きれ て いる 情 
報 の ほか , 現在 の アク セス 位置 を 示す ファ イル ポイ ンタ な ど が あり ます . 

DOS コー ル の レベ ル で ファ イル を オー プン する に は , $FF3D( OPEN) に より すでに 存在 する 
ファ イル を オー プン する か , $FF3C( CREATE) に より あら た に ファ イル を 作成 し ます 。 ファ イ 
ル が オー プン で きる と 。 シス テム 側 は この 次 に 説明 する ファ イル ハン ドル と いう 一 意 の 番号 を 返 
し ます の で 。 ユ ー ザ ー プ ログ ラム 側 で は これ を 用 いて ファ イル の アク セス を 行い ます .。 


較 ファ イル ハン ドル 
正常 に ファ イル が オー プン で きた ら 。 Human68k は その ファ イル に 5 以上 の 一 意 の 番号 を 割り 


当て 。 その 番号 を 返し ます . この 番号 が ファ イル ハン ドル と 呼ば れる も の で す .。 ファ イル ハン ド 
ル を 得る こと が で きれ ば ,。 あ と は ファ イル 名 を 必要 と は し ませ ん . Human68k は 。 階層 デ ィ レ ク 
トリ を サポ ー ト し て いる た め ,。 ファ イル を アク セス する た びに パス 名 と ファ イル 名 を 指定 し て い 
た の で は , ユー ザー プロ グラ ム 側 も シス テム 側 も その 処理 が 燃 雑 に な っ て し まい ます . し か し 
ファ イル ハン ドル を 用 いる 方 式 な ら ば , ユー ザー プロ グラ ム 側 で は この 2 バイ ト の 整数 を 管理 し 
て いる だ け で よい の で す ( 図 2.7). 


@ フ ァイル の オー プン 


| ODeT1 
・ 渡 され た ファ イル 検索 ーー ・ フ ァイル 名 が 格納 され て いる アド レス を 渡す 
・ 見 つか っ た 場合 DOS コ ー ル 発行 
ee 回 回 回 日 還 IE 回 日 加西 E 還 ‥ 

要 な 情報 を 格納 
② 未 使用 の ファ イル ハン 

ドル を ユー ザー 側 に 戻 

す 
・ 見 つか ら な か っ た 場合 _ 油 > 

ファ イル ル ー コ ー 
ェ エラー コー ド を キー ザー ラ ァ イル ハン ドル ァイル ハン ドル , エラ ー コ ー ド の 獲得 
側 に 戻す 
ユー ザー 側 


@ フ ァイル の アク セス 






fgetc, fputc,。…… 
DOS コ ー ル 発行 





・ フ ァイル ハン ドル を も と 
に 。 ダダ 沙 デ 少 避 た 
必要 な 情報 を 検索 

・ 情 報 を も と に ファ イル を 

て 2 








(、$0005 ) 


デー タプ エラ ー コ ー ド の 獲得 






己 . プ ファ イル ハン ドル の 獲得 
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DOS コ ー ル の レベ ル で ファ イル アク セス を 行う に は, $FF1B ( FGETC) や $FF1D 
(_FPUTC), $FF3F( READ), $FF40( WRITE) な ど を 使用 し ます . これ ら の DOS コー ル に 
は か な ら ず ファ イル ハン ドル を 必要 と し ます . ま た, Human68k に は , シス テム に より すでに オー 
プン され , ファ イル ハン ドル が 予約 され て いる も の が あり ます ( 表 2.9). 


ZZ7272EE 還 還 「 て: エ と を 表 還 
| 1 | 和 罰 | ョ シッ ー ル ら ク リージ 
| ュー | | ョ シッ or 
ss 
ーー ォ ーー 






標準 補助 装置 シリ アル (RS-232C) 
標準 プリ ンタ アタ 【 セ ジン トロ ニタ クス ) 


表 己 . ヨ シス テム で 予約 され て いる 入出 力 





標準 入出 力 は .。 コマ ンド シェ ル で リダイレクト 可能 な 入出 力 で すま た 標準 エラ ー は 。 コマ ン 
ド シ ェ ル で は リダイレクト で き な い の で 。 つ ね に コン ソー ル に 出力 され ます 。 し た が っ て 。 コマ 
ンド や アプ リケーション に お ける エラ ー 表 示 に 適し て いま す . 標準 補助 装置 に は “AUX” が 。 標 
準 プ リン タ に は “PRN” が それ ぞ れ 割り 当て られ て いま す 。 両方 と も コマ ンド シェ ル で は リ ダ イ 
ビグ ゲキ で 直 ま 移 売 、 

ュー ザー が オー プン し た ファ イル の ファ イル ハン ドル が 5 以上 に な る の は ,。 この よう に シス テ 
ム が すでに ファ イル ハン ドル 0^4 を 予約 し て ある か ら で す (CONFIG.SYS で 指定 し た オー プン 
する ファ イル の 最大 数 か ら 5 つ 引 いた 数 が 実際 に ユー ザー プロ グラ ム で オー プン で きる ファ イル 
多 X) 

これ ら の ファ イル ハン ドル は , ユー ザー プロ グラ ム 側 で オー プン する 必要 は な く ,。 すぐ に アク 
セス する こと が 可能 で す . 


田 ファ イル の アク セス 

ファ イル の アク セス に は 。 大 別して シー ケン シャ ル ア ク セス と ラン ダム アク セス が あり ます . 
シー ケン シャ ル ア ク セス は , ファ イル の 先頭 か ら 順 番 に 1 バイ ト ず つ ア クセ ス を 行う こと を いい 
ます . ファ イル 中 の 任意 の 部 分 を 自由 に 読み 出す こと は で きま せん . ラン ダム アク セス は 。 読込 
み 可 能 な ら フ ァイル 中 の 任意 の 部 分 を 何 回 で も 読む こと が で き , 書込み 可能 な ら 同 様 に ファ イル 
中 の 任意 の 部 分 に 書き 込ん だ り 。 また ,。 ファ イル の 最後 か ら 追 加 す る こと も 可能 で す . 

た と えば 。 “CON” や AU PRN” と いっ た デパ イス ファ イル は 。 1 バイ ト ず つ 順 番 に し 
か デー タ の 入出 力 を 行え を な い の で ,。 シー ケン シャ ル ア ク セス し か で きま せん .。 これ に 対し て ディ 
スク 上 に 格納 きれ た ファ イル は , 任意 の 部 分 を 目 由 に アク セス で きる の で 。 シー ケン シャ ル ア ク 
セス も ラン ダム アク セス も 可能 で す . 
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双方 で 共通 し て 使用 する DOS コー ル に は , 1 文字 入出 力 を 行う $FF1B( FGETC) と $FEF1C( 
FPUTC) や , 文字 列 単位 の 入出 力 を 行う $FF1D( FGETS) と $FF1E( FPUTS), 任意 の バイ ト 数 
で 入出 力 が 行え る $FF3F( READ) と $FF40( WRITE) が あり ます . 

ラン ダム アク セス の み で 使用 する DOS コー ル は , $FF42( SEEK) で す . SEEK は ファ イル 中 
に お いて これ か ら ア クセ ス さ れる 位置 を 指す サフ ァイル ポイ ンタ を 自由 に 移動 きせ る こと が で きま 
す ( た だ し 。 ポイ ンタ を ファ イル の 先頭 より まえ に は 移動 で き な い ). し た が っ て , これ を 利用 す 
れ ば ファ イル 中 の 任意 の 部 分 を アク セス で きる の で , ラン ダム アク セス が 可能 に な り ま す . な お , 
READ や WRITE を は じ め , FGETC, FEPUTC な どの 入出 力 を 行う DOS コー ル で も 読み 書き し 
た 分 だ け フ ァイル ポイ ンタ は 進み ます 。 


田 ファ イル ハン ドル の コピ ビー 

通常 。 フ ァイル を オー プン し た と き に は ,。 その ファ イル に 割り 当て られ た ファ イル ハン ドル は 
1 つ だ け で す が , DOS コー ル の $FF2F ( DUP0), $FF45 ( DUP), SFF46 ( DUP2) を 利用 す 
る と 。 複数 の ファ イル ハン ドル を 用 いて 1 つの ファ イル を アク セス する こと が で きま す . 各 DOS 
コー ル の 機能 に つい て 以下 で 解説 し ます . 


・DUP0……… 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を 。 強制 的 に コピ ー す 
る . コピ ー さ れる ファ イル ハン ドル は , DUPO を 呼び 出す 側が 指定 する が , 
その 値 は 0 か ら 4 まで で な けれ ば な ら な い .。 それ 以上 の 値 の ファ イル ハン 
ドル に 複写 する 場合 は DUP2 を 使う 。 コピ ー す る まえ に , コピ ー さ れる 
ファ イル ハン ドル の クロ ー ズ は 行わ れ な い 、。 

・DUP-……… 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を 。 コ ピー する . コ ピー 
され る ファ イル ハン ドル は , DOS が 自動 的 に 決定 する の で , ユー ザー が 決 
め る と と は で き な M\。 た だ し 。 戻り 値 と し て コピ ー き れ た だ た ファイ ルカ ハ ンド 
ル の 値 を 返さ れる . オー プン され て いる ファ イル 数 が 起動 時 の FILES で 
設定 し た 値 よ り 多 く ,。 新しい ファ イル ハン ドル が 作成 で き な か っ た 場合 は 
ーー 総 線 狗 。 

・DUP2 …… ド ボボ … バ | 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を 。 コ ピー する . コ ピー 
され た ファ イル ハン ドル は , DUP2 を 呼び 出す 側が 指定 する が 。 指定 し た 
ジア イル ハン ドル が すでに オー プシ され て いる と き は 。 そ れ を クロ ー ズ し 
る が か がら コピ ー す る 。 し た が っ て コピ ー 先 は 舌 わ れ て し まう と と が ある の で 
注意 が 必要 . 


な お 。DUP0 は 。 コピ ー 元 と コピ ー 先 の ファ イル ハン ドル が 同じ 場合 。 そ の 標準 ファ イル ハン 
ドル を デフ ォ ル ト の 状態 に 戻し ます . 
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田 ファ イル の クロ ー ズ 

オー プン し た ファ イル は 。 ア クセ ス が 終了 し た ら ク ロー ズ し な けれ ば な り ま せん 。 クロ ー ズ す 
る と ファ イル ハン ドル は 開放 きれ ます .。 な お , シス テム で 予約 され た ファ イル ハン ドル は リ ダ イ 
レク ト し て な けれ ば ,。 ユー ザー プロ グラ ム で クロ ー ズ する 必要 は あり ませ ん . DOS コー ル で は 
$FF3E(CLOSE) を 使い ます . 


己 . イ . 己 メモ リ 管 理 

DOS は , 外部 コマ ンド が 実行 され る 際 に , それ を 読み 込ん で 実行 する た め に 必要 な メモ リ を 確 
保 し ます . この 確保 さき れ た メモ リ 上 の 領域 を メモ リブ ロッ ク と 呼び 。Human68k は メモ リ の 管理 
を この ブロ ッ ク 単 位 で 行い ます . 

Human68k の 管理 下 で は ,。 メ モリ 上 に 複数 の メモ リブ ロッ ク が 存在 し て いま す . メモ リブ ロッ 
ク は 。 コマ ンド な どの プロ グラ ム 本 体 や ワー クエ リア 。 シス テム の 占有 し て いる 領域 な ど に も あ 
り ま す 。 メモ リ 管 理 と は 。 この メモ リ デ ロ ッ ク が メモ リ 上 で 寺 半 し 合っ た り し な いよ うに 管理 す 
SC と と ち を 指し ます 


画 メモ リ 管 理 ポ ボ ポインタ 
Human68k は 。1 つ 1 つの メモ リブ ロッ ク に メモ リ 管 理 ポ イン タ と いう ワー クエ リア を 設け て 
いま す .。 メモ リ 管 理 ポ イン タ は 表 2.10 の よう な 構造 を も っ て いま す . 


格納 され て いる 値 の 意味 





表 選 .1] メモ リ 管 理 ポ イン タ の 構造 


メモ リ 管 理 ポ イン タ は , か な ら ず メモ リブ ロッ ク の 先頭 に 設け られ ます . また , 最初 の メモ リ 
プロ ッ ク は シス テム の ワー クエ リア (ディ スク バッ ファ や あら た に 組み 込ま れ た デバ イス ドラ イ 
バ が 格納 され て いる 領域 ) で 。 この ブロ ッ ク の メモ リ 管 理 ポ イン タ が 他 の プ ブロック の ポイ ンタ の 起 
点 と な り ま す 。 また,。 メモ リ 管 理 ポ イン タ の 先頭 アド レス は , か な ら ず 最 下 位 4 ビット が 0 と な 
り ま す . 

復 数 の メモ リブ ロッ ク が メモ リ 管 理 ポ イン タタ に よっ て ,。 メモ リ 上 で どの よう な 関係 に な っ て い 
る の か を 。 図 2.8 に 示し ます . 
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2 草 オペ レー ティ ング シス テム Human68k 


メモ リプ ブロ ッ ク と 6 メモ リプ ブ ロック 
プロ セス と の リン ク _ 、 メ セリ 区 間 ポ イン ダグ の どう し の リン ク 








メモ リ 管 理 ポ イン タ ⑤ 


ヒス トリ 撤 域 
メモ リ 管 理 ポ イン タ ⑥ 


プロ セス 管理 ポイ ンタ 










アプ リケーション 


. 複数 の メモ リブ ロッ ク の 関係 


この 図 は , Human68k の 起動 後 す ぐに COMMAND.X を 起動 し . その あと で エディ タ な どの ア 
プリ ケー ショ ン ソ フト を 起動 きせ た と き の メ モリ の 状態 で す 。 この よう に 2 種類 の リン ク を 設け 
る こと で 複数 の メモ リプ ブロ ッ ク や プロ セス を 管理 する こと が で きる の で す . な お ,。 最初 の メモ リ 
ブロ ッ ク の 先頭 アド レス は Human68k の バー ジョ ン に よっ て 異な り ま す . 


圏 メモ リ の 人 確保 

あら だ た に メモ リブ ロッ ク を 確保 する に は , DOS コー ル の $FEF48( MALLOC) を 使い ます . ユー 
ザー プロ グラ ム が この DOS コー ル を 発行 する と 。 シス テム は まだ 使用 きれ て いな い メ モリ 領域 
を 探し , 指定 され た だ け の 大 き さ の 未 使 用 領域 が 見 つか れ ば そこ に メモ リ 管 理 ポ イン タ を 設定 し , 
戻り 値 と し て , その メモ リ 管 理 ポ イン タ の 先頭 アド レス を 返し ます . 

ュー ザー プロ グラ ム は この 戻り 値 か ら , 確保 さ ミ れ た メモ リブ ロッ ク の 場所 を 知る こと が で きま 
す 。 こう し て 確保 さき れ た メモ リブ ロッ ク は , 何 の 支 障 も な く 自 由 に 扱う こと が で きる よう に な る 
わけ で す . 

確保 され た メモ リブ ロッ ク は ,。 必要 が な く な っ た ら $FF49( MFREE) と いう DOS コー ル で 開 
放 で きま す . また だ た , メ モリ ブロ ッ ク の 拡大 や 縮小 を 行う に は , $FF4A( SETBLOCK) と いう DOS 
コー ル を 使用 し ます 。 
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選 .4. コ ブロ セス 管理 

外部 コマ ンド は メモ リ 上 に 読み 込ま れる と , 1 個 の プロ セス と し て 実行 され ます . Human68k 
で は , メモ リ 上 に 複数 の プロ セス を 置く こと が で きま す が , 同時 に 複数 の プロ セス を 実行 する こ 
と は で きま せん .。 プロ セス を メモ リ 上 に 常駐 させ , 割込み を 利用 し て 同時 に 複数 の プロ セス が 実 
行 さ れる よう に 見 せ か ける の は 可能 で す が , この 場合 ,、 プロセ ス 実 行 の 切換 えな どの 処理 は すべ 
て ユー ザー が 管理 し な けれ ば な り ま せん 。 

さて ,。Human68k は 。 メ モリ 中 に 共存 する 他 の プロ セス を 破壊 せ ず に 別 の プロ セス を 実行 し た 
り 。 プロ セス が 終了 し た 時 点 で も と の プロ セス に 戻っ た りす る た め に 。 い くつ か の 管理 を 行っ て 
いま す ( 図 2.9). 





. 複数 の プロ セス の 扱い 


な お 。 プロ セス が 起動 し た 直後 は 。 可能 な 限り の メモ リブ ロッ ク が 確保 され て いる の で ,。 子 プ 
ロ セ ス を 起動 させ る 前 に 。 起 動 元 の プロ セス が 置か れ て いる メモ リブ ロッ ク を 縮小 し て 子 プ ロ セ 
ス の た め の 領 域 を 確保 で きる よう に し な けれ ば な り ま せん . 


田 プロ セス 管理 ポイ ンタ 

Human68k で は ,。 コ マン ド を 読み 込む 領域 を 確保 する と. その メモ リブ ロッ ク の 先頭 に プロ セ 
ス 管 理 ポ イン タ と いう ワー クエ リア を 作成 し ます . プロ セス 管理 ポイ ンタ の 構造 を 表 2.11 に 示 
し ます 。 

プロ セス 管理 ポイ ンタ に 格納 され て いる 値 は 。 プロ セス 起動 時 に 与え られ た パラ メー タ や 。 そ 
の と き の シ ステ ム の 状態 を 保存 し た も の で , プロ セス が 終了 し て , その プロ セス を 実行 し た 親 プ 
ロ セ ス ( た と えば COMMAND.X) に 戻る と き に 使用 きれ ます . 


田 プロ セス の 起動 
ある プロ セス か ら 別 の プロ セス を 起動 する こと を 子 プ ロ セ ス 起 動 と いい ます . プロ セス を 起動 


し レ し た プロ セス を 親 プ ロ セ ス 。 起 動き ん た プロ セス を 子 プ ロ セ ス と いい ます 。 
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プロ セス に 与え られ た 環境 エリ ア の 先頭 アド レス 

| +$OO0004 | 4 | プロ セス が 終了 する 際 に 戻る アド レス 

プロ セス が CTRL+C で 中 断 さ れ た 際 に ジャ ンプ する アド レス 
| 00000C | 4 | プロ セス が エラ ー に より 中 止 され た 際 に ジャ ンプ する アド レス 
| +$SO00010 | 4 プロ セス に 与え られ た コマ ンド ライ ン の 先頭 アド レス 

| +$Sooo014 | 12 ファ イル ハン ドル 使用 状況 を 示す ビッ トマ ッ プ 

rsoooozo 
rsooooz4 

















+$000028 プロ セス の 初期 スタ ッ ク ア ドレ ス ( ヒ ー ブ プ 和 領域 の 最終 アド レス +1) 

+eoooo 

+$000030 | 4 | 親 プ ロ セ ス の SSPo 値 

+$O00034 | 2 | 親 プロ セス の SR の 値 
| 直 


十 $SO000036 
38 
3C 


アボ ー ト (中 止 ) の 際 の SR の 値 
4 アボ ー ト (中止) の 際 の SSP の 値 


4 TRAP #10 命令 で 呼び 出さ れる アド レス (パワ ー オ フ ま た は リセ ッ ト の 処理 ) 
TRAP #11 命令 で 呼び 出さ れる アド レス 

(BREAK キー に よる ハー ド デ ィ スク の シッ ピン グ 等 の 処理 ) 
TRAP #12 命令 で 呼び 由 さ れる アド レス 

(COPY キー に よる ハー ドコ ピー な どの 処理 ) 


5 


中 


填 $000040 4 


+$000044 4 


TRAP #13 命令 で 呼び 出さ れる アド レス 
(CTRL+C 入力 に よる ブレーク チェ ッ ク フ ラグ の セッ ト ) 


十 $O00048 4 


TRAP #14 命令 で 呼び 出さ れる アド レス 


+$00004C (エラ ー 表 示 と , 中 止 ・ 再 実行 ・ 無 視 の 選択 な どの 処理 ) 





プロ セス 起動 時 の 状況 を 表す フラ グ 
十 $OO0050 4 (0 で 親 プ ロ セ ス が 存在 する , -1 で OS より 起動 ) 
+$000054 未 使 用 


十 $000070 
十 $0000B4 
填 $SO0000CC 


起動 され た ファ イル の フル パス 名 


24 起動 され た ファ イル の ファ イル 名 
36 


KA 
江 
Ei 


表 己 .] ] プロ セス 管理 ボ ポイ ンタ の 構造 


子 プ ロ セ ス 起 動 の 際 に 注意 し な けれ ば な ら な い の は ,。 親 の 環境 や ファ イル ハン ドル が 保存 され 
な いと いう こと で す . MS-DOS で は , 親 の 環境 や ファ イル ハン ドル の 情報 の コピ ー が 子 プ ロ セ ス 
に 渡さ れる た め , 子 プ ロ セ ス が 環境 や ファ イル ハン ドル を いく ら 変 更 し て も , 親 プ ロ セ ス に 制御 
が 戻る と き に は も と に 戻り ます . し か し ,。 Human68k で は 。 子 プロ セス に 渡さ れる 環境 や ファ イ 
ル ハ ンド ル の 情報 が 親 の それ な の で , 子 が 親 の 環境 な ど を 変更 する こと が で き て し まい ます . も 
し , これ ら の 情報 を 変更 し て し まう 可能 性 が ある 場合 に は 。 子 プ ロ セ ス 側 で コピ ー し て 退避 し て 
お く 必 要 が あり ます . 

外部 コマ ンド を 実行 する に は , $FF4B( EXEC) と いう DOS コー ル を 使用 し ます . この DOS 
コー ル を 発行 する と , 確保 で きる 最大 の メモ リブ ロッ ク を 確保 し レ し,。 そこ に プロ セス 管理 ポイ ンタ 


// 


〇 


2.4 DOS 


を 設定 し ます . そし て コマ ンド を プロ セス 管理 ポイ ンタ の すぐ あと に 読み 込ん で 実行 を 移し ます 
が , その と き レ ジス タ に 各種 の パラ メー タ が セッ ト さ れ ま す . 表 2.12 に その パラ メー タク を 示し ま 
す . 





プロ セス の メモ リ 管 理 ポ インタ の 先頭 アド レス 

プロ セス (DATA, BSS, STACK セク ショ ン も 含む ) の 最終 アド レス 1 
プロ セス に 渡さ れる コマ ンド ライ ン の 先頭 アド レス 

| A3.L | プロ セス に 与え られ る 環境 エリ ア の 先頭 アド レス 


表 選 .1 選 プロ セス に 渡さ れる バラ メー タ 






















な お 。MS-DOS な ど と は 違っ て 。 プロ セス に 渡さ れる 環境 は 親 プ ロ セ ス の 環境 その も の な の 
で , 親 か ら 渡 され た 環境 ポイ ンタ を も と に し て 環境 を 変更 する と 親 の 環境 も 変更 きれ て し まう の 
で 注意 し て くだ さい 。 

コマ ンド ライ ン の 構造 を 図 2.10 に , 環境 の 構造 を 図 2.11 に 示し ます . 





nul ま で の 文字 数 コマ ンド ライ ン の 本 体 $00 


己 .1| プロ セス に 渡さ れる コマ ンド ライ ン の 構造 


HzPHIH C: NBINiR:MBINiHI MOCRLiRI CCiR:N 

RTEMP し : 

HzSET lib=R: MLIB 

AT include=H: NINCLUDE 

5 Debugger uv1.91 copuright 198?7 SHRRP/Hudson 


debug program from MMM69BFM 


user program Trom $MM97D49 2 iiE 
-[L |69BFM-FMIL4 DB .X の ブロ セス 管理 ポイ ンタ の 先頭 アド レス 


MM69B90 IMMMG62DM」 環境 の 先頭 アド レス 本 









DS 662D L16M 環境 エリ ア の 大 き さ 1 つの 環境 変数 の 終わ り 

MM9662DM 隊 間 中 % 61 74 68 3D 4313R 5C 42 494E 3B ...pathsC:NBIN: 
MG62E』 41 2R 5C 42 49 4E 3B 41 2R 5CI4C 4F 43 41 4C 3E BNBINiR:NLOCRL: 
WW662F9 41 32R 5C 43 43 3B 41 3R 5C 陸 |74 65 6D 79 3D 43 Ri:NCCiR:N.Lemp=C 
99966299 28R99d6C69623D413a5C4C4942 李 696E63 :.lib=R:NLIB.inc 
9966319 6C 75 64 65 3D 41 3R 5C 49 4E 43 4C 55 44 45 9 luds=R:NINCLUDE. 
MMM66326 6 74 656D 793D433R9932R5C3B41 238 ..Lemp=Ci.…:Ni 提 : 
66336 53 59 53 9 74 65 6D 79 3D 43 3R 9M 9 6D 78  \SYS.Lemp=C: ..mp 
9966349 13D 43 SR 99 99 3R 5C 3B41 3R5C535953 中 74 =CEL:NiRENSYS.【 
66359 |65 6D 79 3D 43 38 MM74656D7M32D433R 吸 emp=Ci..Lemp=C:. 
9066369 Id 3R 5C 3B 41 28 5C 53 59 53 99 74 65 6D 79 3D 。 .:NiHENSYS.Lemp= 
9966379 |43 3R 4 8FFFFFFFFFFFFFFFFFFFFFFFF Ci...........…. 
9966389 IFF FF FF FF FF FF FF FF FF FF FF FF FF FF FFFF  ................ 
9966399 IFF FF FF FFFF FF FF FF FF FF FF FF FF FF FF FF  ......…......... 
663RB IFF FF FF FFFF FF FF FF FFFF FF FF FF FFFFFF  ..........….…... 
9B663B9 IFF FF FFFFFF FF FF FF FF FF FF FF FF FF FFFF  ..........…….……... 
MM663C9 IFF FF FF FFFF FF FF FFFFFFFFFFFFFFFFFF  ......…......... 


すべ て の 環境 変数 の 終わ り 


図 ど .1 1] プロ セス に 渡さ れる 環境 の 構造 
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ら . 三 デバ イス ドラ イ バ 


Human68k は , X68000 に 組み 込ま れ て いる 装置 , あ る い は 接続 され て いる 周辺 装置 を 管理 し て 
いま す . これ ら を 管理 する た め に , 各 装 置 を 制御 する デバ イス ドラ イ バ と 呼ば れる プロ グラ ム が 
用 意 き れ て いま す .。 デ バイ ス ド ラ イ バ の な か で も , X68000 の 動作 に どう し て も 必要 な も の , た と 
えば キー ボー ド , スク リー ン ,。 ディ スク ドラ イブ な ど を 動か す も の は HUMAN.SYS 内 に 組み 込 
まれ て いま す の で 。 ユー ザー が 意識 する 必要 は あり ませ ん . 

それ 以外 の 装置 , た と えば プリ ンタ , FM 音源 な ど は , ユー ザー の 利用 目的 に よっ て 任意 に 組み 
込む どこ と が で きま す .。 これ を 組み 込む の が , CONEFIG.SYS ファ イル 中 で 指定 する DEVICE” の 
役割 な の で す . 

し か し , デバ イス ドラ イ バ に 制御 を 要求 する 場合 は , か な ら ず DOS を 経由 し な けれ ば な り ま せ 
ん . その た め , デバ イス ドラ イ バ は DOS か ら の 要求 を 受け 取る こと が で きる よう な 形式 で 作成 さ 
れ て いる 必要 が あり ます . 

本 節 で は 。 Human68k の デバ イス ドラ イ バ が どの よう な 構造 に な っ て いる か を 解説 し ます . 





己 ロ 5.| ブロ ッ ク デ バイ ス と キャ ラク タデ バイ ス 

デバ イス ドラ イ バ で 制御 する デバ イス に は , 入 出力 の 扱い の 違い か ら , ブ ロッ ク デ バイ ス と キャ 
ラク タデ バイ ス の 2 種類 が あり ます . 

プロ ッ ク デ バイ ス は 。 ディ スク の よう に 一 度 に まとまっ た デー タ を 読み 書き で き 。 ラ ンダ ム ア 
クセ ス の 可能 な デバ イス で す 。 ブロ ッ ク デ バイ ス に は HUMAN.SYS に 内 蔵 さ れ て いる 2HD フ 
ロッ ピー ディ スグ や ハバ ハードディスク が あり ます 。 ま た 粗 み 込ま れ た 願 に AA 1 “BIO も く ぞ 
… と いう 連続 し た 名 前 が つけ られ ます . 

キャ ラク タデ バイ ス は 1 文字 単位 で シー ケン シャ ル に 入出 力 を 行い ます . この デバ イス は 。 そ 
れ ぞ れ “CON"。 PRN” と いっ た 固有 の 名 前 を つけ られ ます . キャ ラク タデ バイ ス と 入出 力 を す 
る 際 に は , それ ぞ れ に つけ られ て いる 名 前 を ファ イル 名 と し て 扱い ます . 

キャ ジフ ク タグ デ パイ スズ ス に は コン ツー ル デ パ イズ (CON)。 ブ プリ シン タデ ガ が イス (PRN /LPT) な ど 六 
DOS に 内 蔵 き れ て いま す . また , これ ら の 組み 込み ずみ の デバ イス と, あら た に 作成 し た デバ イ 
ス を 置き 換え る こと が で きま す . た と えば ,。 “CON” と いう デバ イス が 複数 組み 込ま れ て いた ら 。 
最後 に 組み 込ま れ た デバ イス が 有効 に な り ま す . 
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2 な デ ノ ソバ イス ド ライ パ 


らら. どど デ / パ イズ ドラ イ パ バ の フォ ー マ ウ ト 

通常 。 デバ イス ドラ イ バ は ディ スク な どの 外部 記憶 装置 中 に , 拡張 子 が “SYS" の ファ イル と 
し て 格納 され て いま す . た だ し , あと で 解説 する “FLOAT?.X” と “OPMDRV.X” は 例外 で , 
デバ イス ドラ イ バ で ある に も 関わ ら ず 拡張 子 は “.X” で す . 

Human68k は 起動 時 に ^CONFIG.SYS” を 解析 し , 指定 され た デバ イス ドラ イ バ を 外部 記憶 装 
置か ら メ モリ 上 に 読み 込み ます . ここ で 知っ て お いて も らい た い の は ,。 デ バイ ス ド ラ イ バ は 双 形 
式 の 実行 可能 ファ イル と まっ た く < 同じ フォ ー マ ッ ト で 外部 記憶 装置 に 格納 され て いる と いう こと 
で す . し た が っ て , デバ イス ドラ イ バ 内 の 命令 コー ド 部 に お いて 絶対 的 な アド レス の 値 に 依存 し 
て いる 箇所 が あっ て も , Human68k は メモ リ 上 で その 人 箇所 が 正常 に 実行 され る よう 読み 込み 時 に 
修正 し ます . つま り デ バイ ス ド ラ イ バ の ファ イル 形式 は X 形式 の 実行 可能 ファ イル と 同じ で な け 
れ ば な ら な い ,。 と いう こと を 覚え て お いて くだ さい 。. 

また だ た, デバ イス ドラ イ バ の 内 部 構造 に も 規定 が あり ます ( 図 2.12). 


~- デバ パイ スペ ヘッ ダ ③ 







デ ノ ソバ イス ニー ュ > ョ デュ 
ドラ イ バ G① SER25 計 ピー 和 次 の ヘッ ダ へ の 
守 入 み ル ー チ ン 2 
デバ イス ヘッ ダ ② 
デメ ッッ バイ スズ ス 
2 スト ラテ ジル ー チ ン 
& 





害 A み ルー チン 


どら .1 選 デバ イス ドラ イ バ の 基本 的 な フォ ー マ ッ ト 


デバ イス ドラ イ バ の 先頭 に は , デバ イス ヘッ ダ と 呼ば れる $16 バイ ト の デー タ を 置か な けれ ば 
な り ま せん . デバ イス ヘッ ダ に は DOS が デバ イス ドラ イ バ を 呼び 出す と き に 必要 な 情報 が 格納 
され て いま す . デバ イス ヘッ ダ の 構造 を 表 2.13 に 示し ます . 

デバ イス ドラ イ バ の 内 部 構造 は 。 その 先頭 に デバ イス ヘッ ダ が 存在 し て いる こと と 。 複数 の デ 
バイ スペ ヘッ ダ が 存在 する と き 。, 正 常に リン ク ポ イン タ が 設定 され て いる こと が 規定 され て いま す . 
し た が っ て , デバ イス ヘッ ダ の 後 の 構造 は 自由 で す ( も ちろ ん , プロ グラ ム と し て 正常 に 動作 し な 
けれ ば な り ま せん が ). 

2.12 に 示し た スト ラテ ジル ー チ ン と は , 実際 に 処理 を 行う まえ に , Human68k が 用 意 し た リ 
クエ スト ヘッ ダ と 呼ば れる パラ メー タ 領 域 へ の ポイ ンタ を 受け 取る ルー チン で す .。 リク エス ト 
ヘッ ダ へ の ポイ ンタ の 値 は , その 後 の 処 理 の た め に デバ イス ドラ イ バ 内 に 退避 し て お か な けれ ば 
りあ せん えん 
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必 病 され て いる 価 の 間 所 


次 の デバ イス ドラ イ バ へ の リン ク ポ イン タ 
+$000000 









1 つの ファ イル に 複数 の ドラ イ バ が 存在 する 場合 は , 炊 の ドラ イ バ の デバ イス ヘッ ダ 
の 先頭 アド レス を 格納 する 




















最後 の ヘッ ダ で は , -1 を 格納 する 
デバ イス の 属性 を 示す 
ビッ w ト 15 ニニ 0 プロ ッ ウ デバ ヤギ ス 
三 1: キ ャ ラク タデ バイス 
ビッ ト 14 = 0O: DOS コー ル $FF44(IOCTRL) に よる 入出 力 が 不可 能 
=ー 1 : DOS コー ル $FF44(IOCTRL) に よる 入出 力 が 可能 
ビ ピット 12 て 6 ・ 未 使用 
+$000004 ビッ ト 5 = 0O:COOKED モー ド (1 バイ ト ず つ 処 理 す る ) 
1 : RAW モー ド (指定 バイ ト す つ 処 理 す る ) 
が ト 4 : 未 使用 
ピッ ト 3 き = 1:CLOCK デア パイ ス と どす る 
ビッ ト 2 = 1:NUL デバ イス と する 
トコ ー 1 : 標準 出力 デバ イス と する 
ビッ ト 0 = 1: 標準 入 力 デ バイ ス と する 





P コ 
+$O00006 | 4 スト ラテ ジル ー チ ン の エン トリ アド レス 
十 $OO000A 宇 h 込 み ル ー チ ン の エン トリ アド レス 


キャ ラク タデ バイ ス の 場合 , デバ イス ファ イル の 名 前 を 格納 する 
填 $O00000E 


ブロック デバ イス の 場合 , 先頭 1 バイ ト に $20 以下 の 値 を 格納 する . その 他 の 部 分 は 
注 : COOKED モー ド と RAW モー ド で は , CTRL+S, CTRL+Z な どの コン トロ ー ル コー ド の 処理 が 違う . 







任意 





表 己 .1 コ デバ イス ヘッ ダ の 構造 


割込み ルー チン と は , スト ラテ ジル ー チ ン が 呼ば れ た と き に 退避 し た ポイ ンタ の 値 か ら リ クエ 
スト ヘッ ダ を 得 て , それ を も と に 実際 の 入出 力 の 処理 を 行う ルー チン で す . 

デバ イス ドラ イ バ の 処理 ルー チン を わざ わ ぎ 2 つ に 分 け て いる 理由 は , Human68k の マル チタ 
スク 化 の た めで ある と され て いま す . マル チタ スク に な っ た 場合 。、 デ バイ ス ド ラ イ バ の 処理 状態 
に 関係 な く 入 出力 の 要求 が 発生 し ます . この と き , デバ イス ドラ イ バ は すべ て の 要求 を 順番 に 処 
理 し て いか な く て は な り ま せん . そこ で ,。 入出 力 の 要求 を 整理 し て 次 に 処理 すべ き 要 求 を 決定 す 
る ルー チン (スト ラテ ジル ー チ ン ) と , 実際 に 1 つの 要求 に 対す る 入出 力 の 処理 を 行わ せる ルー チ 
ン ( 割 込み ルー チン ) を 分 ける と 。 マル チタ スク 用 の デバ イス ドラ イ バ に 変更 し や すく な り ま す . 
実際 に 入出 力 の 処理 を 行う ルー チン は 。 シン グル タス ク で も マル チタ スク で も それ ほど 変わ りな 
く , 変更 箇所 が 少な く て すむ か ら で す . 

ただし, Human68k が シン グル タス ク で ある と き に は , ドラ イ バ の 処理 ルー チン が 2 分 割 さ れ 
て いて も 意味 が な い の で ,。 スト ラテ ジル ー チ ン で は リク エス トペ ヘッダ へ の ポイ ンタ を 退避 し た あ 
と , すぐ に DOS に 戻ら な けれ ば な り ま せん 。 また , DOS 側 は スト ラテ ジル ー チ ン を 呼び 出し た 
あと , すぐ に 割込み ルー チン を 呼び 出し て いま す . 
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Z9 デバ パイ スズ ド ライ バ 


己 〇 . づ DS こ デ バイ ス ド ラ イ バ の 間 の デー タ の 受渡 し 

DOS は か な ら ず デバ イス ドラ イ バ を 通し て 周辺 装置 と の デー タ の 入出 力 を 行い ます . その た め 
に は , まず その 周辺 装置 を 管理 する デバ イス ドラ イ バ の あり か を 探さ な けれ ば な り ま せん . この 
と き , DOS が 参照 する の が デバ イス ヘッ ダ で す . 表 2.14 に 示し た よう に ,。 デバ イス ヘッ ダ に は 次 
の デバ イス ドラ イ バ の あり か を 示す リン ク ポ イン タ が 格納 され て いる の で , DOS は これ を デバ イ 
スペ ヘッ ダ ご と に 参照 し て , 目的 の デバ イス ドラ イ バ を 探し ます . 

デバ イス ドラ イ バ と の 入出 力 の 際 に 必要 に な る パラ メー タ は , DOS が リク エス ト ヘ ッ ダ の た め 
の 領域 を 確保 し て , そこ に 格納 し ます . そ し て リク エス トペ ヘッダ の 先頭 アド レス を A5 レジ スタ に 
セッ ト し た あと 。 す で に 探し た デパ イス ドラ イ バ の デパ イス ヘッ ダ よ り ス トラ テ ジ ル ー チ ン の エ 
ント リ 和 を 求め 。 そ こ を サ グ プル ー チ ンコ ヨー ル し ます 。 デパ イズ ス ドライバ パ 側 で は 。A5 ビジ スタ の 値 を 
割込み ルー チン か ら 参 照 で きる よう に 退避 し ます . DOS は スト ラテ ジル ー チ ン を 呼び 出し た あ 
と , すぐ に 割込み ルー チン を 呼び 出し ます 。 デバ イス ドラ イ バ 側 は , リク エス トペ ヘッ ダ の 内 容 に 
従っ て 処理 を 行い 。 エ ラー コー ド を D0 レジ スタ と リク エス トペ ヘッ ダ の な か に セッ ト し て 終了 し 
まず 。 

パラ メー タ の 受け 渡し は , リク エス トペ ヘッダ と いう 1 つの“^ 箱 "に DOS と デバ イス ドラ イ バ が 
必要 な パラ メー タ を 入れ る こと で 行わ れる , と 考え れ ば よい で し ょ う 。 図 2.13 に DOS か ら デ バ 
イス ドラ イ バ へ の パラ メー タ の 受け 渡し の 様子 を , 表 2.14 に エラ ー コ ー ド の 意味 を 示し ます . 








② ス トラ テ ジ ル ー チ ン を コー ル 
(A5 レ ジス タニ テリ クエ スト ヘッ ダ の 先頭 アド レス ) 








③ 害 込み ルー チン を コー ル 
デ ッ メッ ミイ ズ ス 


DOS ドラ イ バ 





① パ ラメ ー タ を セッ ト (〈④ パ ラメ ー タ を 受け 取る 








⑥ エ ラー コー ド 等 を 受け 取る ⑤ エ ラー コー ド 等 を セッ ト 


リク エス ト ヘ ッ ダ 


己 .1 バラ メー タ の 受渡 し 


/S 
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その 後 の 処 理 の 選択 内 容 
中 止 く A> 再 実 行く > 無視 < > ?" 
* 中 止 く > 再 実 行く <R> 無視 <1> ?? 
中 止 く A> 再 実 行く R> 無視 <1> ?/ 


記 り 休 の 6 バイ ト 

















| s02 | 『 ラ イブ の 準備 が で き て いな い 
| SO3 | 箇 め な コマ ンド コー ド Fo 押 定 
| 05 | ティ スク の 管理 人 が 破 寺 さ れ て いる 
一 表 党 一 先生 
無効 な が メディ ア を アク セス し た 


| se | jmss-o 加 = 
| sec | roeoz-om 生 
so 


$OB 
$OD ライ ト プ ロ テク ト (取替え 不可 ) 


書込み 不可 (取替え 可能 ).。 また は ディ スク が 
挿入 され て いな い 


〇 正常 終了 の 時 に は , $OOOO を 戻り 値 と し て 返す 















表 己 .14 デバ イス ドラ イ バ か ら の エラ ー コ ー ド 


リク エス トペ ヘッダ 内 の パラ メー タ は キャ ラク タデ バイ ス と ブロ ッ ク デ バイ ス で 違い が あり ま 
す . ここ で は リク エス ト ヘ ッ ダ の 内 容 を この 2 つの 形式 で 分 け て 解説 し ます . 


己 弓 4 キャ ラク タデ バイ ス へ の コマ ンド コー ド 

Human68k が デバ イス ドラ イ バ に 要求 する 処理 内 容 は , リク エス ト ヘ ッ ダ の 先頭 か ら 2 バイ ト 
目 に 格納 さん れん て いる コマ ンド コー ド ( 長 さ 1 バイ ト ) で 決定 し ます . コマ ンド コー ド は , 0 か ら 12 
まで の 整数 で す ( 表 2.15)、 それ ん では, コマ ンド コー ド の それ ぞ れ の 意味 を 詳し く 見 て み ま し ょ う 。 
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と 95) 9 メイ ドライ パ 





Le | me ササ 
1 | 


未 使用 

先読み 入力 (デー タ が な く て も 待た な い ) 
| 6 | スカ テー タス の チェッ ク 
| 5 | mpvemry orFoes) 
| 9 | emFY oNoes) 
| や | カネ テ ー タ 4 の チェック 
| 1 
| 2 















未 使用 
IOCTRL (DOS コー ル $FF44) に よる 出力 


表 己 .1]1 巳 コマ ンド コー ド の 一 覧 (キャ ラク タデ バイ ス ) 


一 初期 化 ( コ マン ドコ ー ド : 0) 

初期 化 ル ー チ ン は , Human68k の 起動 時 に デバ イス ドラ イ バ を 組み 込む 際 に 1 回 だ け 呼 ば れ ま 
す . まず 。CONFIG.SYS に 登録 さき れ て いる “DEVICE=“ の 右側 に 記述 され て いる パラ メー タ を 
受け 取り , その 解析 と 処理 を 行い ます . そし て タイ トル 表示 や デバ イス の 初期 化 後に , デバ イス 
ドラ イ バ が 占有 する 領域 の 終わ り の アド レス を リク エス ト ヘ ッ ダ に セッ ト し て , シス テム に 戻り 
名 証 

リク エス ト ベ ヘッ ダ を 表 2.16 に 示し ます . 












Treo | 」 | N |see 約 
rr | 」 | 一 |*m 
| rss | 1 | wm laszracro 
re 
「s イ ーー 
> | er 
CDE 






本 用 
デバ イス ドラ イ バ の 最終 アド レス 
パラ メー タ 格 納 領域 の 先頭 アド レス 


表 ど .1B 初期 化 の と き の リ クエ スト ヘッ ダ 






// 
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田 入出 力 ( コ マン ドコ ー ド : 4. 日, 旦 。 1 呂 ) 

この I/O リ クエ スト は 。 ディ スク や キャ ラク タデ バイ ス ,。 あるいは デバ イス ドラ イ バ パ 目 体 と 
デー ゲ を や や ひび 取り し ます 、 

入力 の 場合 。 デ バイ ス か ら 読 み 込 ん だ デー タ を 指定 され た バイ ト 数 だ け , 指定 され た バッ ファ 
に セッ ト し ます 。 デー タ が 用 意 き ほれ て いな けれ ば , デー タ が そろ うま で 待ち ます . 

出力 の 場合 。 指定 さて ん た バッ ファ か ら 指 定 さ れ た バイ ト 数 の デー タ を デバ イス に 書き 込み ます . 
コマ ンド コー ド 9(VERIFY ON の と き の 出 力 ) の 場合 は 。 デバ イス に デー タ を 書き 込ん だ 直後 に 
デー タ を 読み 込ん で , 正しく 書き 込ま れ て いる か どう か を チェ ッ ク し ます 。 

リク エス トペ ヘッ グ を 表 2.1/ に 示し ます 。 







| reo | 1 | w lswGe 史 
reo | 1 | 一 | 和 是 
| reog | 」 | w | aszraressmsg 
| +sos | 」 | our | ェ ラ ー ュ ーrorex7t 
| eee | 」 | orr | ェ ラー ューroEeft 
| ss | s | 一 | 4 
4 | w 
F > | mw 
















| SOE 転送 デー タ 格納 領域 の 先頭 アド レス 


表 選 .1 プ 入出 力 の と き の リ クエ スト ヘッ ダ 





一 先読み 入力 (コマ ンド コー ド : 選 ) 

デバ イス か ら 1 バイ ト だ け デ ー タ を 先読み し ます . デー タ が 読み 込め る 場合 に は , その デー タ 
を 。 次 に 読込 み を し た と き に ふた た び 読 み 込め る よう に デバ イス ドラ イ バ 内 の ワー クエ リア な ど 
に 退避 し た あと で 。 リ クエ スト ヘッ ダ の バッ ファ に セッ ト し て 戻り ます 。 デー タ が 読み 込め な い 
場合 に は リク エス ト ヘ ッ ダ 内 の バッ ファ に $00 を セッ ト し て 戻り ます . 

リク エス ト ヘ ッ ダ を 表 2.18 に 示し ます 。 












| Treoo | 」 | nm |sAe 呈 

re | 」 | 一 | am 

に NHN 
rsos | 」 | our | = ラー コーroe7t 

| reoe | 」 | oor | = ラー ューrokee7t 


表 ど .1 日 先読み 入力 の と き の リ クエ スト ヘッ ダ 





/ の 


20 7 パイ スズ ドラ マイ バ パ 


田 ステ ー タ スチ ェ ッ ク ( コ マン ドコ ー ド : , 10) 

デバ イス が 入出 力 可 能 か どう か を 調べ , 可能 で あれ ば ステ ー タ ス と し て $00 を , 不可 能 で あれ ば 
$01 を リク エス ト ヘ ッ ダ に セッ ト し て 戻り ます . 

リグ エス トペ ホッ ダ を 表 2.19 示し ます 、 





オラ セト タイ ズ | 生き 
se | 」 | mn lswe 各 。 、、 
re | 」 | 一 | 生還 。 一 
| rses | ! | w |aszracreo 
| +ses | 1 | our | = ラー ューFofefh 
Lt34 | + | om | = ラー ューFoke<th 


っ うっ ステー タス は エラ ー コ ー ド と し て 格納 する . 
入出 力 可能 : エラ ー コ ー ド = $OOOO 
入出 力 不可 : エラ ー コ ー ド = $OOO1 









才 己 |] ステ デー タ ズ チェ ッ ク の と ぎの リン エス トペ ベッ ダ 


還 入力 バッ ファ の ジン リア (コマ ンド ニード: の 

それ まで 入力 きれ た デー タ を 格 疹 し て いた バッ プ ァ を クリ ア し ます と の 場合 の パッ ファ と は 。 
デバ イス ドラ イ バ 目 身 が 確保 し て , デー タ の 入力 の 際 に 使用 し て いる ロー カル な バッ ファ の こと 
を 指し ます .。 

リ ダ エ スト ペッ ダ を 表 2.20 に 示し ます 。 





| rseo | 」 | mw lswe 生 
Pts | 1 | 生還)、〈、〈{100 
| ses | 1 | W |aszrar の O 
| ュ | om 
_ ュ 1 | om 












エラ ー コ ー ド の 下位 バイ ト 
エラ ー コ ー ド の 上 位 バ イト 


表 ら .G ロ 入力 バッ ファ の クリ ア の と き の リ クエ スト ヘッ ダ 


己 .5. 呈 ブロ ッ ク デ バイ ス へ の コマ ンド コー ド 

Human68k が デバ イス ドラ イ バ に 要求 する 処理 内 容 は ,。 リク エス ト ヘ ッ ダ の 先頭 アド レス オ 2 
に 格納 され て いる コマ ンド コー ド ( 長 さき 1 バイト) で 決定 し ます . コ マン ドコ ー ド は 0 か ら 12 ま で 
の 整数 で す 。 表 2.21 に ブロ ッ ク デ バイ ス の コマ ンド コー ド の 一 覧 表 を 示し ます . 


が 
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ov | ge ササ 
IE 還 EZ と と テミル 
3 | 生還 
| 3。 | oormLoos コー ル erf モ ょ る 入 カ 
> 二 乏  、0.0〔%{0 パ パパ 






ドラ イフ コン トロ ー ル & セ ンス 


CE EESi 間 間 EE 
| as | あ wemmyofogbp 
| s | 叶 weneovocsb 
Po 
Ei 
Hs 








未 使 用 
未 使用 
IOCTRL (DOS コー ル $FF44) に よる 出力 


表 | 性 ] コマ ンド コー ド の 一 覧 (ブロ ッ ク デ バイ ス ) 






画 初期 化 ( コ マン ドコ ー ド : 0) 

キャ ラク タデ バイ ス で の 処理 に 加え を えて, その デバ イス ドラ イ バ が サポ ー ト し て いる ユニ ッ ト の 
数 と 。 そ の ユニ ッ ト 数 分 の BPB(Bios Parameter Block) の アド レス を 並べ た DBPB テー ブル へ の 
ポイ ンク を リク エス ト ヘ ッ ダ に セッ ト し て 戻り ます 。 

ブロ ッ ク デ バイ ス の ドラ イ バ は ,。 初期 化 の と き に , その ドラ イ バ が サポ ー ト する ディ スク の 特 
性 を 表す BPB を シス テム に 渡し ます . シス テム 側 は それ を も と に し て DPB(Drive Parameter 
Block) と 呼ば れる 管理 テー ブル を 内 部 に 作成 し ます . 

表 2.22 に BPB の 内 容 を , 表 2.23 に DPB の 内 容 を 示し ます . 










reooeoo | 」 





デバ イス ドラ イ バ 内 に お ける ユニ ッ ト 番 号 


1 セク タ 当 り の バイ ト 数 

+$OO0008 | 1 | FAT 領域 の 個数 
| 秀 
| 3 
2 




















1 つの FAT 領域 当り の セク タ 数 
ルー トディ レク トリ の 最大 エン トリ 数 


イー 


+| 
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0 7 の 1 スス ドウ イ バ 






FAT ID (メデ ィ ア バイ ト ) 

DPB を 使用 し て いる か どう か を 示す フラ グ (-1 な ら 使 用 し て いな い ) 
| 9000oT6 | < | レン トディ レク トリ の クラ スタ 各 5 0 な 5 ァ ー ト ディ レク トー 
soonote 


表 己 己 BPB の 内 容 


+$000000 | "2 | 1 セク タ 当 り の バイ ト 数 (1024 バ パイ トノ セ クタ て 固定 ) 
























FAT 領域 の 個数 

| +eooooo4 | < | Wow22o 和 。。、、、、、、〈、〈、〈、〈 ハ ハハ 
| +$Sooo0006 | 2 ルー トディ レク トリ の 最大 エン トリ 数 

| +$O0000A | 1 FAT ID (メデ ィ ア バイ ト ) 


表 己 選 ヨコ DPB の 内 容 






実際 に シス テム に BPB を 渡す 場合 ドラ イ バ が サポ ー ト する ユニ ッ ト 数 分 だ け BPB を 用 意 し 
な けれ ば な ら な い の で , 各 BPB へ の ポイ ンタ を ユニ ッ ト 数 分 だ け 並 べた BPB テー ブル を 作成 
し 。 その テー ブル へ の ポイ ンタ を シス テム に 渡し ます 。 

リグ クエ スト ヘッ ダ を 表 2.24 に 示し ます . 





| rso | 」 | w lsAw 生 っ 


+$01 
+S02 | 1 
1 om 







十 $05 未 使 用 
+Sop ouT 


\ ラ メー 納 貿 二 綱 ア ドレ ス 
| ィ ー に パラ メー タ 格 納 領域 の 先頭 アド 


BPB テー ブル の 先頭 アド レス 


| TeYe | 」 | IN | 当ら た 9 の ドラ イブ 8 


〇 ドラ イブ 番号 = 0 つ A ドライブ 
=1ーB ド ライ ブ 


オ 









表 4 初期 化 の と き の リ クエ スト ヘッ ダ 
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田 ディ スク 交換 チェ ッ ク ( コ マン ドコ ー ド : 1) 

ュ ニ ッ ト 番 号 で 指定 され た ドラ イブ の ディ スク が 交換 され た か どう か を チェ ッ ク し て ,。 ディ ス 
ク が 交換 され た 場合 に は $FF( 一 1) を , 交換 され て いな い 場 合 に は $01 を ,。 リク エス ト ヘ ッ ダ の 
デー タバ ッ フ ァ に セッ ト し ます . な お , ディ スク が 交換 きれ た か どう か が 不明 の 場合 は , $FF を 
セッ ト し ます 。 

Human68k は 戻り 値 を 調べ て , シ ステ ム の 内 部 の I/O バッ ファ の デー タ が 有効 で ある か どう か 
を 決定 し ます . ディ スク が 交換 され て いた な ら ば , 1I/O バッ ファ の デー タ は 無効 で す . 

また 。 メ ディ アバ イト と は 。 指定 し た メデ ィ ア の 種類 を 表す 1 バイ ト の デー タ で , FAT の] に 
も 利用 され て いま す . 

リク エス ト ヘ ッ ダ を 表 2.25 に 示し ます . 












Fn lswwW  、 、、 
FN layks 

| N |aszra-rO 
エラ ー コ ー ド の 下位 バイ ト 


表 ビ 巳 ディ スク 交換 チェ ッ ク 時 の リク エス ト ヘ ッ ダ 


田 入出 力 ( コ マン ドコ ー ド : ス , 日 , ) 

入力 の 場合 。 ユ ニッ ト 番 号 で 指定 され た ドラ イブ の 開始 セク タ 番 号 か ら 指 定 さ れ た セク タ 数 分 
だ け 。 転送 バッ ファ に デー タ を 読み 込み ます 。 

出力 の 場合 も , 指定 され た ドラ イブ の 開始 セク タ 番 号 か ら 指 定 さ きれ た セク タ 数 分 だ け , 転送 バッ 
ファ に 格納 され た デー タ を 書き 込み ます . コマ ンド コー ド が 9 の と き は 。 書込み 後に その デー タ 
を 読み 込ん で , 正しく 書き 込ま れ て いる か どう か を チェ ッ ク し ます 。 

が. スト ペッ ダグ 症 末 226 だ 8 し ます 、 


時 ドラ イブ コン トロ ー ル と ドラ イブ セン ス ( コ マン ドコ ー ド : 5) 

ュ ユニット 番号 で 指定 さき され た ドラ イブ に 対し て ,。 内 部 コマ ンド で 指定 され た 処理 を 行い 。 ド ライ 
ブ の 状態 を バッ ファ に セッ ト し て 戻り ます . 

リク エス トペ ヘッダ を 表 2.29 に 示し ます . 
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25 デパ イス ドラ イ パ 


$1A (定数 ) 


先頭 セク タ 番 号 


内 
エラ ー コ ー ド の 下位 バイ ト 
記 。 束 
- と ー ィ 


ご テー ヨコ ヨード の 上 人 大 パ イ ト 


IN 内 部 コマ ンド 
OUT ドラ イブ の 状態 


内 。 容 ・ 意 味 









イジ ェクト 禁止 1( ユ ー ザ ー 用 ) 
| 3 | イジ ェクト 許可 1( ユ ー ザ ー 用 ) 


イジ ェクト 禁止 2(DOS 用 ) 
イジ ェクト 許可 2(DOS 用 ) 
@⑯ ト ドラ イブ の 状態 

BIT7= ニ 1 | LED 点 灯 
BIT6 1 | イジ ェクト 禁止 


















表 選 選 プ ドラ イブ コン トロ ー ル と ドラ イブ セン ス 時 の リク エス ト ヘ ッ ダ 


O) 
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ビ .) ファ イル シス テム 


ュー ザー が 作成 し た コマ ンド や デー タ は ディ スク な ど に 保存 し ます . この と き , ディ スク の ど 
この トラ ッ ク の どの セク タ に 何 が 格納 され て いる の か と いう こと を , ユー ザー が つね に 意識 する 
の は ほとん ど 不 可能 で す 。 そこ で DOS は 。 ユー ザー が ディ スク に 格納 する デー タ を 。 ト ラック や 
セク タ と いっ た 物理 フォ ー マ ッ ト に 依存 し た 単位 で 管理 する の で は な く , “ファ イル "と いう 論 理 
的 な 概念 で 扱え を る よう に し て いま す . 





ど . 己 .1 ディ スク 内 の 構成 


Human68k の ファ イル シス テム の 管理 下 で は 。 ディス ク は 図 2.14 の よう な 4 つの 領域 に 分 か 
れ て いま す .。 基本 的 な 構成 は 。MS-DOS と 同じ で ある と 思っ て 差し つか えな いで し ょ う . 


に も 
し て いな い 場 合 は 不 必 要 






ーー ュー 


FAT (予備) 
ディ レク トリ 領域 
(ルー ト ディ レク トリ ) 


デー タ 領 域 
(ファ イル , 
ザ ブ デ ィ レ クト リ ) 


FAT の 管理 下 に ある 







己 .14 ディ スク 内 の 基本 構成 


一 上 AT 

ディ スク の デー タ 領 域 は 。 クラ スタ と いう 論理 的 単位 に 分 割 し て 管理 され て いま す . ディ スク 
の 管理 を 。 セク タ で は な く ク ラス タ 単 位 で 管理 する 理由 は 。 ファ イル を アク セス する プロ グラ ム 
が セク タタ の 大 き さ や トラ ッ ク 当 た り の セク タ 夕 数 を 意識 し な く て すむ か ら で す (Human68k で は , 1 
クラ スタ に は 1 セク タ が 割り 当て られ て いる )。 

FAT(File Allocation Table) に は 。 どこ の クラ スタ が どの よう に 使わ れ て いる か と いう こと が 記 
銀 さ れ て いま す . FAT の 構造 は ディ スク の 記憶 容量 の 関係 で 1.5 バイ ト FAT と 2 バイ ト FAT 
の 2 種類 が あり ます . それ ぞ れ の FAT の 構造 を 図 2.15 に 示し ます . 

また , FAT の 先頭 2 個 分 は 。 デバ イス の 種類 に よっ て シス テム が 決め て お り , と くに FAT の 
先頭 1 バイ ト は FAT ID また は メデ ィ ア バイ ト と 呼ば れ て いま す ( 表 2.28). 
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の 2D メデ イル ルス テム 


@1.5 バ イト FAT 
クラ スタ 002 は クラ スタ 003 に 続く 


クラ スタ 003 は クラ スタ 004 に 続く 


| 
| 
| クラ スタ 004 は クラ スタ 005 に 続く 
| 


I 
ャ ・ 
クラ スタ ー- - ち >- 002 003 004 005- ゴ ーー ク pa 005 は FFF な の で 終了 
| | 1 | 
I I 
ャ * Y 
I I | | 
FrigrirleiEieleieleihiglrrirlefrlsle 
DO > 散 朱 の @FAT の 値 の 意味 
PT 領域 開始 を $000 …………… 未 使用 エリ ア 
mm $002 て $FF6… 次 の クラ スタ 番号 
0 お に パ  emwkhrmm 使用 不能 クラ スタ 
$FFF _………… 終り の クラ スタ 


@ 2 バイ ト FAT 
クラ スタ 002 は , クラ スタ 6003 は 。 
クラ スタ 003 に 続く クラ スタ 004 に 続く 


の ゲーテ (002 


003 004 005 
is \ーーー ヘ ーーーー ご 


MNO クラ スタ 004 は , 
容量 が ある ハー ド デ ャ ズン ク FFFF な の で 終了 
人 碧 本 cd 二 

用 FAT 領域 の 開始 を 示す ID Pe 
$0000 …………… 未 使用 エリ ア 
$0002- と $FFF6 … 次 の クラ スタ 番号 
$FFF7 …………… 使用 不能 クラ スタ 
遇 届 記 本 motom 終り の クラ スタ 


.1 己 FAT の 構造 


PATD | PAT の タイ ス 
フロ ッ ピ ー デ ィ ス ク (2HD) 1.5 バイ ト 
バー ド ティ テク M < イト 

F9 
F9 

















表 己 己 昌 FAT の ID 


田 ディ レク トリ 

ディ レク トリ 内 に は , フ ァイル や サブ ディ レク トリ に 関す る 情報 が は いっ て いま す が , その 個々 
の 情報 を ディ レク トリ エン トリ と いい ます .。 ディ レク トリ は この エン トリ の 集合 と いえ ます . 表 
2.29 に 。 Human68k に お ける , ディ レク トリ エン トリ の 構造 を 示し ます . 

Human68k で は , ルー トディ レク トリ は 特別 扱い に な っ て いま す . サブ ディ レク トリ は 長 さ が 
可変 で 。 デ ィ ス ク の 記憶 容量 の 許す 限り 大 きく で きま す が , ルー トディ レク トリ は FAT の 管理 下 
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に な く ,。 ディ スク 内 で の 位置 や その 長 さ は 固定 され て いま す ( 図 2.15 参照 したがって, ルート 
ディ レク トリ に 作れ る ファ イル や サブ ディ レク トリ の 数 は 限定 され て いて , 2HD タイ プ の フロ ッ 
ピー ディ スク に は 192 個 。 ハー ド デ ィ スク に は 512 個 ほ まで し か 作れ ませ ん 。 ま た 。 サ プ ブ プ デ ィ レ ク 
トリ に は それ 自身 (^.”) と その 親 (.…) を 志す ディ レク トリ エン トリ が か な ら ず あり ます が 。 ルー 


トディ レク トリ に は それ が あり ませ ん 。 


また 。 Human68k で は ,。 デ ィ レ クト リ を ファ イル と 同様 に オー プン し て その 内 容 を 直接 


ーーー ーー 


定 す る に は , セク タタ を 直接 アク セス し な けれ ば で きま せん . 


























bitO : 書込み 禁止 属性 
ファ イル 名 の うち 9 文字 目 以降 の 部 分 (残り は $00 を 格納 し て ある ) 


ファ イル を 最後 に 変更 し た 時 刻 (16 進数 ) 
bit15 ^ biH13 : 分 の 下位 3 ビット 
bit12 ^- bit8 : 秒 X2 

bit7 ーー bit3 : 時 

bit2 ^- bitO : 分 の 上 位 3 ビ ピット 


ファ イル を 最後 に 変更 し た 日 付 6 進数 ) 
bit15 - biH13 : 月 の 下位 3bit 
bit12 へ Di8 : 日 
bit7 - bit1 : 年 一 1980 
^ bitO : 月 の 上 位 1bit 


ファ イル の 先頭 が 格納 され て いる クラ スタ 番号 
(上 位 バ イト と 下位 バイ トカ 逆転 し て 格納 され て いる ) 


ファ イル の 長 さ (下位 バイ ト か ら 格 納 さ れ て いる ) 





























先頭 の 1 バイ ト が $OO0 : ディ レク トリ の 終り 
填 $O00000 
(残り は スペ ー ス ($20) を 格納 し て ある ) 
bit5 : 通常 ファ イル 
bit1 : 不可 視 属 性 
2 


$E5 : 消去 され た ファ イル 
+$O000008 拡張 子 (残り は スペ ー ス を 格納 し て ある ) 
bit4 : ディ レク トリ 
十 $OO0018 回 


$05 : $E5 で 始ま る ファ イル 名 
属性 (アト リピ ビュ ー ト ), ビッ ト が 1 な ら 有 効 
+$00000B bit3 : ボリ ュー ム 名 
十 $OOO01A 


その 他 : 通常 の ファ イル 名 
bit7ー bit6: 0 
bit2 : シス テム 属性 











表 己 選 弓 ディ レク トリ エン トリ の 構造 


己 .5. ど ファ イル の 検索 


Human68k は 。 ど の よう に し て FAT や ディ レク トリ を 参照 し て 。 目的 の ファ イル を 見 つけ る 


の で し ょ うか . ここ で は ,。~A:\USR 壮 BIN\FOO.R^ を 検索 する と き の 例 を あげ ます . 


Human68k は 。A ド ライ ブ の ルー トディ レク トリ の な か か ら び USR” と いう ディ レク トリ の エ 
ント リ を 探し ます .。 見 つか っ た だ たら,。 その エン トリ か ら び USR′ ディ レク トリ の 本 体 が 存在 する 先 
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委 照 計 


2.7 基本 入出 力 シ ステ ム 


頭 の クラ スタ を 求め 。 そこ か ら “BIN” と いう ディ レク トリ の エン トリ を 探索 し 始め ます 。 も し 
*USR” の ディ レク トリ の 先頭 の クラ スタ に “BIN” の エン トリ が な けれ ば , FAT を 参照 し て 
^YUSR” ディ レク トリ の 続き の クラ スタ の 位置 を 求め , 検索 を 続け ます . “BIN" の エン トリ が 見 
つか っ た ら 。 いま まで と 同様 の 手法 で , “FOO.R” と いう ファ イル を 探索 し ます . 

この 例 の 検索 の 過程 を 図 2.16 に 示し ます . 


ーー COMMAND.X 
Be CONFIG.SYS 
Pd AUTOEXEC. BAT 





A ド ライ ブ の ルー トディ レク トリ 
*※ 属性 
A : 通常 の ファ イル 
デイ レ み トリ 
・ ボ リュ ー ム 名 
・ シ ステ ム 属 性 
・ 不 可視 属性 
・ 書 込み 禁止 属性 


ae 





サ プ デ ィ レ クト リ “USR" 


図ら .1B ファ イル の 検索 


ら . 基本 入出 カシ ステ ム 


サ プ デ ィ レ クト リ “BIN' 








X68000 に は 。 入出 力 装置 を 直接 に 管理 や 操作 する た め の プ ログ ラム が 格納 され て いる 128K バ 


イト の 容量 の ROM が 標準 装備 パト され て いま す . 


この うち Human68k が 通常 使用 する の は IOCS 


と 呼ば れる プロ グラ ム で す . IOCS と は Input Ouput Control System の 略 で 。 他 の パソ コン で は 


BIOS(Basic Input Output System) と 呼ば れる こと も あり ます . 


IOCS の 役割 は 。Human68k な どの シス テム や ユー ザー の プロ グラ ム が 入出 力 装置 を より か ん 
た ん に 扱え る よう に する こと で す 。 も し 。 DOS か ユー ザー プロ グラ ム 中 に ハー ドウ ェ ア を 直接 操 


作 す る サブ ルー チン を 埋め 込ま な けれ ば な ら な いと する と 。 


・ プ ログ ラム の サイ ズ が 大 きく な る 
・ い ちい ち サ ブル ー チ ン を 作成 し な けれ ば な ら な い の で , プロ グラ ム の 作成 に 時 間 が か か る 
・ 将 来 ハ ー ド ウェ ア が 拡張 さき れ た と き 。 ハー ドウ ェ ア 仕 様 の 変更 に より 従来 の プロ グラ ム が 
実行 で き な く な る 可能 性 が ある 


の / 
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と いっ た 上 弊害 が 生じ ます 。 そこ で , コン ピュ ー タ の ハー ドウ ェ ア に 依存 し た 部 分 は 。 ユー ザー プ 
ログ ラム や DOS より さら に 下層 の ROM 内 の サブ ルー チン で 吸収 し て し まえ ば ,。 この よう な 弊 
害 は な く な り ま す . 

X68000 に 標準 装備 され て いる 入出 力 装置 や 、 イン ター フェ イス が 用 意 さ きれ て いる 入出 力 は 
IOCS 内 の サブ ルー チン で ほとん ど サ ポー ト さ れ て いま す . 


己 ./.1 10C ら 8 の 提供 する サー ビス 


IOCS で は 。 表 2.30 に 示す 分 野 を サポ ー ト し て いる サブ ルー チン が 格納 され て いま す . これ ら 
の サー ビス を 利用 する に は 。 TRAP 命令 を 使い ます . IOCS の 基本 的 な 呼び 出し か た を 次 に 示し 
ます 。 


コー ル 番 号 と 名 前 


$O00(B KEYINP) 
$01(B KEYSNS) 


$OC(TVCTRL) 
etc. 
Pr 
失 (SET232C) 


ディ スク 2HD まで の フロ ッッ ピー ディスク と 40M バイ ト ま で の ハー ド デ ィ ス | $40(B SEEK) 
ク の アウ クセ ス etC. 
アル タイ ム 日 付 , 時 刻 の 設定 , 参照 や アラ ー ム の 設定 , また 日 付 , 時 刻 デ ー | $50(DATEBCD) 
on タ の フォ ー マ ッ ト の 変換 etc. 
AD-PCM AD-PCM に よ る 音声 入出 力 , 状態 チェ ッ ク , 実行 制御 Pa 
OPM (FM 音源 LS)) の レジ スタ 設定 , 状態 チェ ッ ク , 割込み 時 (OPMSET) 


マウ スカ ー ソ ル の 表示 ノ 非 表示 .。 マウ ス の 移動 量 の 検出 . ボ タン | ”7O(MS_INIT) 


の 状態 チェ ッ ク , マウ スカ ー ソ ル ・ ア ニメーション の 制御 な ど 1 


DMAC (Direct Memory Access Controler の 略 称 , CPU を 使 | S82(B BPEEK) 




















キー 入力 , キー バッ ファ の チェック , キー ーー キー 
ド 上 の LED の 状態 設定 , ま た ソフ トキ ー ボ ー ド PF の 





テレ ビ の チャ ン ネ ル 切 替え や 音量 調節 , CRT の モー ド 切 替え や コ 
ント ラス ト の 設定 

テキ スト パレ ッ ト の 変更 や 短 形 領域 の GET/PUT, 文字 出力 , カー 
ソル 移動 , 画面 消去 な どの 処理 
RS-232C へ の デー タ 入出 力 や 通信 で きる か どう か の チェ ッ ク な ど 
の 処理 

ジョ イス ティ ッ ク 用 の ポー ト か ら の デー タ 入 力 
プリ ンタ に デー タ を 出力 する た め の サ プ ブルー チン (直接 出力 と 漢 
字 対 応 の 2 種類 ) 








RS-232C 


ジョ イス ティ ッ ク 











わ ず に メモ リ と 1|/O ま た は メモ リ と メモ リ で 直接 デー タ 転 送 が 高 | $89(B MEMSET) 
速 に 行え る ) を 利用 し た DMA 転送 . バイ ト プ ワ ー ド プロ ング ワー | $8A(DMAMOVE) 
ド の 各 単 位 で の メモ リア クセ ス etc. 


$AO0(SFTJIS) 
$A4(DAKJOB) 
etC. 


シン フト JIS と JIS の 相互 変換 , ANK か ら シ フト JIS へ の 変換 , ロー 
マ 字 か ら ANK カナ へ の 変換 や , その 他 全 角 文 字 列 の 濁点 処理 な ど 
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2.7 基本 入出 力 シ ステ ム 


コー ル 番 号 と 名 前 
グラ フィ ッ ク 画 面 の モー ド 設 定 , ライ ン , ペイ ント , サー クル と | $90(G CLR ON) 
いっ た グラ フィ ッ ク 画 面 へ の 描画 な ど etcC. 
スプ ライ ト 画 面 の 制御 , パタ ー ン の 設定 や スプ ライ トレ ジス タ の | $CO(SP INIT) 
設定 な ど etcC. 


$C8(BGSCRLST) 
$CC(BGTEXTCL) 
etC. 


スー パー バイ ザ モ ー ド と ユー ザー モー ド の 間 の 移行 や , IOCS FROM | $81 (B SUPER) 
の バー ジョ ン の 参照 な ど etcC. 


表 己 30 IOCS コー ル 一 覧 


パック グラ ウン シンド バッ ク グ ラウ ンド の スク ロー ルレ ジス タ や コン トロ ー ル レジ スタ 
画面 の 設定 * チ ェ ッ ク 。 バ パック グラ ウン ド テ キス ト の 設定 , ク リア な ど 





田 アセ ンプ リ 言 語 の 場合 
アセ ンプ ブリ 言語 か ら は , 一 般 的 に 以下 の よう に 呼び 出し ます . 


moveqd #IOCSNO,d0 
traD #15 


^IOCSNO" は 各 IOCS コー ル の 番号 を 表し 。 0 か ら 255 まで の 数 が 許さ れ ま す . また 。 各 T1IOCS 
コー ル で 必要 と な る 引数 は コー ル ご と に 異な り ま す が , 基本 的 に た だ の デー タ で ある 引数 は デー 
タレ ジス タ D1 より D7 へ 順に 格納 され ,。 ま た, アド レス を 示す 引数 は アド レス レジ スタ A1 より 
A6 へ 順に 格納 され ます . A0 レジ スタ は 使用 で きま せん 。 戻り 値 は D0. し に セッ ト さ れ ま す . 

な お , CCompiler PRO-68k に 付属 し て いる “IOCSCALL.JMAC” に は 。 リス ト 2.1 の よう な 
マク ロ が 用 意 さ れ て いま す . 


リス ト . ] IDCS コー ル を 利用 する た め の マ クロ 


10CS maCTO Callname 
mOVeq  #callname, dg 
trap #15 
endm 





そこ で ,。 この 1IOCSCALL.MAC を アセ ンプ リ 言 語 の ソー スプ ログ ラム 中 に イン クル ー ド する 
a 


IOCS LABEL 


の よう に マク ロ を 使っ て IOCS を 呼び 出す こと が で きま す 。 “LABEL” は 各 IOCS コー ル に つけ 
られ た 名 前 で す 。 た と えば IOCS コー ル NO.$10 を 呼び 出す に は 
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IOCS CRTMOD 


と すれ ば よい わけ で す ( も ちろ ん , この マク ロロ 命令 の まえ に 必要 な 引数 を D0.L 以外 の 各 レ ジス タ 
に セッ ト し て お か な けれ ば な ら な い )。 


画 〇 言語 の 場合 
*IOCSLIB.H7 と いう イン クル ー ド ファ イル と “IOCSLIB.A” と いう ライ ブラ リ を 利用 する と , 
次 に 示す よう に 普通 の 関数 と 同じ 形式 で 各 IOCS コー ル が 利用 で きま す . 


crtmode 三 CRTMOD( 一 1) : 


な お , TRAP15 と いう 関数 も 用 意 さ きれ て いま す . この 関数 は REGS と いう 構造 体 を 引数 と し て 
必要 と し ます . TRAP15 の 使用 例 を リス ト 2.2 示し ます . 


リス ト どど . TRAP15 の 使用 例 


#include <stdio.h> 
#include <iocslib.h> 


#define CRTMOD 9x19 
#define READMOD 9xffff /* ワー ド 単 位 で は -1 と な る */ 


main( ) 
struct REGS inregs, OutTegSi 
inregs.d9 = CRTMOD: 
inregs.d1 = READMOD: 
TRAPI5(&inregs, &outregs): 


printf(" 現 在 の CRT の モー ド 番 号 は %d で す 親 ", outregs.d9): 
exit(): 


ら . 品 XBBDOO の 起動 と 終了 


X68000 は マシ ン の 電源 ON ノ OFF を ソフ トウ ェ ア で 操作 で きる よう に な っ て いま す .。 た と え 
ば , 設定 され た 時 刻 に 本 体 や 専用 テレ ビ を 起動 し た り , 必要 な 処理 を 行っ て か ら 自 動 的 に 電源 を 
切る ,。 と いっ だ よう な こと も で きま す . 

この よう な 機能 を 実現 する た め , マシ ン の 起動 と 終了 の 過程 は 少し 複雑 で す 、 そこ で どの よう 
に し て Human68k が 起動 し , 終了 する の か を 解説 し まし ょ う . 
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2.6 X68000 の 起動 と 終了 


己 ..1 起動 時 の 処理 


X68000 は 起動 後 。 あらかじめ 設定 され た 事項 に 従っ て 。 Human68k を 起動 し た り 。 テ レビ コン 
トロ ー ル の み を 行う な どの 処理 を 行い ます . その 過程 を 図 2.17 に フロ ー チ ャ ー ト で 示し ます . 


電源 ON 


周辺 装置 
初期 化 


アラ ー ム て で 起動 ? 








SRAM の 情報 を 参照 し , 
処理 を 行う 








Y と くに 指定 し た 
BOOT デバ イ ス 

あり ? 

N 





| 
L 
山 、」 っ 
S ヾ ! デー 
に 地 
いひ * 





を の デパ イス 
か ら 起 動 で き 
た か 7?7 


DOS 起 動 の 
指定 あり ? 






ZHD 
"ライ ブ か ら 


N 
起動 ? 
「 
動 : 
ーー 
N 


N 


RAM か ら 起 動 ? 


2HD ドラ イブ か ら 起 動 
人 


己 .17 起動 時 の 処理 の 過程 


[ 


較 ハー ドウ ェ ア の 起動 

前 面 パ ネル に ある 赤い 電源 スイ ッ チ を ON に し ます . 本 体内 蔵 の アラ ー ム 機能 に よる 電源 ON 
で も 。 外 部 POWER ON 端子 を 使っ た 電源 ON で も 同じ こと で , 本 体内 部 の 主要 な IC や LSI が 
働き 始め 。68000CPU に RESET 信号 が か か り ま す . 


9』 
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さき て 68000CPU は RESET が か か る と 。 スーパー バイ ザー・ ス タッ ク ポ イン タタ と プロ グラ ムカ 
ウゥ ンタ の 初期 値 を 。 メモ リ 空 間 の $000000 番地 か ら そ れ ぞ れ 1 ロ ング ワー ド (4 バイト) ずつ 読み 
込み ます . 

ここ で 問題 に な る の は , これ ら の 初期 値 は 電源 投入 時 に すでに メモ リ に 書き 込ま れ て いな けれ 
ば な ら な いと いう こと で す 。 電源 投入 時 に メモ リ に 書き 込ま れ て いる た だ ため に は , これ ら の デー タ 
は ROM 化 さ れ て いな けれ ば な り ま せん 。 し か し , メモ リマ ッ プ を 見 れ ば わか る と お り , 8 バイト 
の 初期 値 デ ー タ の 格納 され て いた あと の 領域 は ベク タ 領 域 で あり , RAM で な けれ ば な ら な いと 
ks GE す 。 

この 問題 を 解決 する た め , X68000 は 特殊 な ハー ドウ ェ ア で 図 2.18 に 示す よう な 処理 を 行っ て 
いま す . 


① リ セッ ト 時 の メモ リマ ッ プ ② リ セッ ト 解 除 後 の メモ リマ ッ プ 
$000000 $000000 
の 1 メデ メージ SSP の 初期 値 


メイ ン メ モリ 
空間 


$00FFFF (1 ロン グ ワ ー ド ) 


PC の 初期 値 
(1 ロン グ ワ ー ド ) *BFFFFF 





ど .1 ロ HESET 時 の 品 番地 の 様子 


田 DOT ブロ グラ ム の 起動 

68000CPU は RESET 後 。 ROM ($FE0000--$FFFFFF) 内 に ある 初期 化 プ ログ ラム (BOOT プ 
ログ ラム ) を 実行 し ます . BOOT プロ グラ ム は 例外 処理 や IOCS コー ル の 際 に 呼ば れる 各 ル ー チ 
ン へ の アド レス を , それ ぞ れ 例外 ベク タ 領 域 。 IOCS コー ル ベ ク タ 領 域 と 呼ば れる 領域 に 設定 し ま 
す . これ で 例外 処理 や IOCS コー ル が 発生 し て も , 正常 な 処理 が 行わ れ ま す . 


田 ご GAM か ら の 情報 の 取得 

その 後 の 処理 で 重要 な 役割 を 果たし て いる の が 。$ED0000-$ED3FFF に マッ ピン グ さ れ た 
16K バイ ト の SRAM で す . この SRAM は 。 バ バッテリー バッ クア ッ プ され て いる の で ,。 本 体 後部 
の 電源 スイ ッ チ を OFF に し て も 一 定時 間 は 内 容 が 失わ れず に すみ ます (本 体 後部 の 電源 スイ ッ 
チ を ON に し て お く と ,。 ソフ トウ ェ ア 的 に 書き 換え られ な けれ ば その 内 容 は 失わ れ な い ). 
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2.8 X68000 の 起動 と 終了 


この SRAM に 格納 され て いる 内 容 は 。 メモ リス イッ チ と 呼ば れ , 起動 時 や 終了 時 に 必要 に な る 
情報 で す . な お ぉ お, SRAM の 先頭 に は 8 バイ ト の ID が あり , これ が 破壊 され て いた ら , SRAM の 
内 容 は IOCS ROM に 格納 され て いる 値 に より 初期 化 さ れ ま す . SRAM に 格納 され て いる 内 容 を 
表 2.31 に 示し ます . SRAM の 内 容 の ほとん ど は , SWITCH コマ ンド で 設定 で きる デー タ で す 。 


全 表 され て いる 仁 の 素 叶 


SRAM の 内 容 が 壊れ て いる か どう か 判別 する た め の デ ー タ . ここ が 破壊 





SE され て いた ら SRAM を 初期 化す る OL 


$EDOOO8 | 4 メイ ン メ モリ 空間 の RAM 実装 領域 の 最終 アド レス +1 $100000 
$EDOOOC ROM より ブー ト す る と き の エ ント リア ドレ ス が 格納 され て いる アド レス | $BFFFFC 


$EDOO10 RAM より プー ト す る と き の エ ント リア ドレ ス $EDO100 


アラ ー ム 起動 し た あと , 電源 を ON に し て いる 時 間 (分 単位 ). IOCS コ 
$EDO014 4 









ー ル $5E (ALARMSET) の 引数 D2.L よ り 1 引 いた 値 . 一 1 な ら 電 源 OFF 
し な い 、. 






$EDOO18 ブー ト の 優先 順位 


01A RS-232C イン ター フェ イス の 設定 $4E07 
電源 OFF し た と き の キ ー ボ ー ド の し LED の 状態 を 示す . リセ ッ ト し た あ 
と , この 値 か ら LED の 状態 を 決定 する . 


IPL に お ける 画面 モー ド . IOCS コー ル $10 (CRTMOD) の 引数 D1.L の 
値 . むやみ に 16 以外 の 値 に 変更 し て は いけ な い . 

アラ ー ム 起動 後 の 処理 を 示す . IOCS コー ル $5E (ALARMSET) の 引数 A1. 
L の 値 

SE し Lou る 日 付 , 時 刻 、 IOCS コー ル $5E(ALARMSET) の 引数 D1. 


DO022 
アラ ー ム 発生 の 禁止 , 許可 を 示す フラ グ 
SEDO026 | ュー 0 : 許可 , 7 : 禁止 
OPT.2 キー の 使用 目的 を 示す サフ ラ グ 
ee 


$EDOO28 | 1 | リセ ッ ト 直 後 の 画 面 の コン トラ スト の 値 
本 体 電源 OFF の と き , フロ ッ ピ ー デ ィ ス ク を イジ ェクト する か を 示す フ 
ラグ 
0 : イジ ェクト し な い 1: イジ ェクト する 
本 体 電源 OFF の 際 の , テレ ビ を コン トロ ー ル する コー ド .IOCS コー ル $0C 
(TVCTRL) の 引数 D1.L の 値 





$FFFFO000 


9 | | め | 
mm | 四 | 思 四 
glgl8Mg 
ミド トコ | 当 
m | | の 





む 








$EDOO029 1 






ーー 






$EDO02A 1 $OD 















キー ボー ド の 配列 を 示す フラ グ 
SEDO02C 電卓 の 文字 フォ ント を 示す フラ グ 


0:LCD フォ ント 1: プー マル フォ ント 


SRAM ($EDO100C$ED3FFF) の 使用 目的 を 示す フラ グ 
0 : 使用 し て いな い 1: SRAM ディ スク と し て 使用 
2 : ブロ グラ ム 格 納 領域 と し て 使用 


| 2 | リセ ッ ト 直 後 の テ キス トバ パレ ッ ト 0 の 値 
| 敵 
| 疾 」 
| 詳 | 
L 六 | 






9| で 
g| 8 
8| 8 
DD| MM 
居 





$O000 
sEDoo30 sFeSE 
sFFCO 
sEDoo34 sFFFE 
DE6C 


リセ ッ ト 直 後 の テ キス ト パ レ ッ ト 8^-15 の 値 $4022 


で も} 
〇 ) 
OO 
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生生 す 古 で で 人 可 束 


9 = っ = 特に も ポ ・ 前 を 示 
上 キー の オー トリ ピー ト が 始ま る まで の 時 間 を 示す 


(時 間 =200+100 x n[ ミリ 秒 ],」n は ここ に 格納 され て いる 0^-15 の 値 ) 
$EDOO3B 


キー の リピ ー ト 間隔 を 示す 


(時 間 =30+5 xX m[ ミ リ 秒 ], m は ここ に 格納 され て いる 0^-115 の 値 ) 


























プリ ンタ の タイ ム ア ウ ト 時 間 を 示す $80000 


SRAM が 初期 化 さ れ て か ら 直 前 の 本 体 電源 の OFF まで 電源 ON し て いた 
時 間 の 総計 . 電源 を OFF する 毎 に 今回 の 電源 ON し て いた 時 間 が 加算 さ 
れる 













SRAM の 内 容 が 初期 化 さ れ て か ら 本 体 電 源 を OFF し た 回 数 . 電源 を OFF 
する 和 に きれ る gi 
| WEDoo48 | < | RoM ディ スク の FAT 委 中 の 先 頭 ア ドレ ス  。 | sfpooou 
| EDO04C | 12 | ROM デ ィ ス ク の BPB き 2""5 し 0O0⑳007W 090 0 「 | トト 
swEpo958 | 」 | シス テム 5 和 0) 〇 0〈0.0.〈.0.0 パ 0 パパ ハ 《0]| oc 
| EDO059 | 1 | *\| の フォ ント の 指定 凍 。 j 
$EDOO5A | 1 | ハー ド デ ィ スク の 接続 台数 (0 て 15) し 1 


moe 人 シス テム 和 予約 
$EDO100 SRAM に プロ グラ ム を 格納 する と き の 先頭 ア ドレ ス 


$EDO400 SRAM ディ スク の FAT 領域 の 先頭 アド レス 
| SED3FFF | SRAM の 最終 アド レス (全部 で 16K バ イト ) 
























※( 注 1) プー ト の 優先 順位 


| 全 | イス | アート o 和 和 を 
$8n00 HD (unit=n) HD 標 準 の 順序 
FD (unit =m 


n : ハー ド デ ィ スク の ユニ ッ ト 番 号 (0 て <$F) 
m: フ ロッ ピ デ ィ スク の ユニ ッ ト 番 号 (0 て 3) 








※( 注 2) ROM ディ スク の BPB 


ピッ セッ ト | タイ タ | き lm uh 
soooooo | 2 | ie2 タ on イ TP 雪 | 
Tooooo2 | 1 | コク ラ ォ タ 間 9 の 22 委  | h 
+sooooos 


十 $000006 
十 $000008 
十 $00000A 
十 $00000B 


全 領 域 の セク タ 数 
メデ ィ ア バイ ト (FAT ID) 


FAT 領域 1 個 あ た り の セク タ 数 





の 
1 
し LT 
eooooo 
し ュー 


co 
| s 
還 還 


表 1 SHAM の 内 容 
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な お , ここ で 解説 し て いる ROM の バー ジョ ン は 。 Ver.1.0。87-05-07 で す 。 これ 以外 の ROM 
で は 処理 内 容 が 若干 違う 可能 性 が ある の で 注意 を し て くだ さい . ROM の バー ジョ ン は , IOCS 
コー ル $8F(ROMVER) を 使っ て 知る こと が で きま す . 

さて , BOOT プロ グラ ム は 周辺 装置 の 初期 化 の 際 に , どの よう に X68000 が 起動 し た か と いう 
育 報 を 得 ま す . も し , 本 体内 蔵 の アラ ー ム で 起動 し た の な ら ば , SRAM に 格納 され て いる 情報 に 
使っ て , テレ ビ だ け を つけ た まま に し て お いた り ,。 指定 し た アド レス に 実行 を 移し て リタ ー ン し 
た ら 電 源 を OFEF する, な どの 処理 を 行い ます . た だ し , Human68k を 起動 する よう に 設定 され て 
ゅ いれ ば 。 次 の BOOT デバ イス の 選択 に 移り ます . 


弄 選 UDUT デバ イス の 選択 

本 体 前 面 の 電源 スイ ッ チ や 外部 POWER ON 端子 に より 電源 が ON に され て 起動 し た の な ら 
ば ,。 HUMAN.SYS な どの シス テム ファ イル を 読み 込ん で くる 装置 (BOOT デバ イス ) を SRAM 
に 格納 され て いる 情報 で 決定 し ます . BOOT デバ イス は,。 次 の な か か ら 選 択 で きま す 。 


*Z2HDO3  : MD ブフ ロッ ピー ディ スタ 0ー-3 ドラ イプ 
*HDBO-15 : パー ド デ ィ スク 0 一 15 ドラ イプ 
・ROM0, 1 :  ROMO($BFFFFC), ROM1 ($FF4FFC) 
・RAM0, 1 : RAMO($ED0100), RAM1 ($EDO0C40) 
SID ・。 2HD 7? 一 HD 2? 一 ROM ? 一 RAM ? 


例 と し て , BOOT デバ イス が ハー ド デ ィ スク (HD0) で ある 場合 の 動作 を 考え て み ま す . 
BOO] プロ グラ ム は , まず ハー ド デ ィ スク の ドラ イブ 0 か ら IPL(Initial Program Loader : 
Human68k 本 体 を 読み 込ん で くる プロ グラ ム ) を 読み 込 も うと し ます 。 読込 み に 成 功 し た ら IPL 
を 実行 し ます が 。 な ん ら か の 理由 で 失敗 し て し まっ た 場合 は . フロ ッ ピ ー デ ィ ス ク 。 ハー ド デ ィ 

スク 。 ROM, RAM (SRAM) の 順番 (STD の 順番 ) で BOOT デバ イス を 検索 し て いき ます . 


HOM〆SRHAM か ら の 起動 
ROM か ら 起 動 す る と き は , 次 の よう な 動作 を し ます . 


①$ED000C (SRAM) か ら , 実行 開始 アド レス の 格納 され て いる アド レス を 取り 出す 

② 実 行 開始 アド レス を 取り 出す 。 も し バス エラ ー が 発生 し た ら ROM か ら の 起動 を あき ら め 
る 

③ 実 行 開始 アド レス を サブ ルー チン コー ル す る 


また , RAM か ら 起 動 す る と き は , 次 の よう な 動作 を し ます . 
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①$ED0010 (SRAM) か ら 実 行 開始 アド レス を 取り 出す 
② 実 行 開始 アド レス が 指し 示す 内 容 の 1 バイ ト 目 が $60 な ちら ば ,. その アド レス を サブ ルー チ 
ンコ ー ル する . それ 以外 の 場合 は RAM か ら の 起動 を あき ら め る 


STD の 順番 で , SRAM か ら も 起動 で き な か っ た 場合 に は , 次 の メッ セー ジ を 画面 に 出力 し , フ 
ロッ ピー ディ スク が 挿入 され る の を 待ち ます . 


ディ スク か ら 起 動 で きま せん . 正しい ディ スク を セッ ト し て くだ さい . 


と の と き 。 ディ スウ グ ド ラ イグ TP し の は いっ た ディ スタ を セッ トド すれ ば 。 デ ャ スプ み ド デイブ か 
ら 起 動き せる こと が で きま す . 

な お 。 IPL の 先頭 1 バイ ト 目 が $60 で な いと , それ は IPL で は な いと 判断 され , その ディ スク 
に 正しく シス テム が 格納 され て いて も 起動 し ませ ん の で 注意 し て くだ さい . 


SHAM か ら の 起動 

BOOT デバ イス 選択 機能 を 応用 する と , 起動 時 に SRAM 内 に ユー ザー が 書き 込ん で お いた プ 
ログ ラム を 実行 し て 立ち あげ る 。 と いっ た こと が で きま す .。 たとえば, OPM デバ イス か ら 音 声 を 
出力 し て 起動 する と いう こと も 可能 で す . 

この SRAM 内 に 置く プロ グラ ム の 作成 と 組込み に は ,。 以下 に 示す 点 に 注意 し て くだ さい . 


・ リ ンク 時 に ベー ス ア ドレ ス を 指定 し て , 読み 込み 時 に アド レス の 再 配置 の 必要 が な いよ う 
に する 
LK /B EDO100 TEST.0 
・ デ バッ ガ を 利用 し て , SRAM を 書込み 可能 に し て か ら ($E8E00D 番地 に $31 を 書き 込む . 
$00 を 書き 込む と 書込み 禁止 )。 ディスク 上 の プロ グラ ム を R コ マン ド で 読み 込み 。 M コマ 
ンド で SRAM に 書き 込め ば よい 
・ プ ログ ラム の 先頭 の 命令 を , 
start ・ bra main 
と し て , main か ら プ ログ ラム を 書き 始め る . つま り , プロ グラ ム の 実行 開始 アド レス の 先 
頭 1 バイ ト は $60 で な けれ ば な ら な い 
・SWITCH コマ ンド で BOOT デバ イス や SRAM の 使用 目的 を 設定 する た と えば , 
switch SDP BB デニ RAMO 
と 設定 する と , SRAM は プロ グラ ム 用 の 領域 と な り , 起動 時 に は まず SRAM 内 の 
$ED0100 番地 か ら 実 行 し よう と する 


この よう に し て シス テム に 組み 込ん だ プロ グラ ム が 。 不幸 に し て 起動 時 に 正常 に 動か ず 暴 走 し 
"区 し まっ だ 場合 。 
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エラ マー が 発生 し まし た 。 リ セット し る くく だ きい 


と いう メッ セー ジ が 画面 に 出力 され ます . 

こう な っ て し まう と , SRAM の 内 容 が 失わ れ な い 限 り 。 何 回 リセ ッ ト し て も 上 記 の メッ セー ジ 
が 表示 され ,。 起動 で き な い と いう 事態 に 陥っ て し まう 場合 が あり ます .。 こう な っ て し まっ た ら , 
リセ ッ ト ボ タン を 押し た 直後 に 。OPT.1 キー と OPT.2 キー を 同時 に 押し 。THuman68k が 起動 す 
る まで 押し 続け て くだ さい . この リセ ッ ト 方 法 は 強制 的 に STD の 順序 で 起動 きせ る た め の も の 
0 

こう し て 正常 に Human68k が 起動 し た ら , SWITCH コマ ンド で BOOT の 順序 を 変更 し 暴走 
し た プロ グラ ム の 削除 また は 修正 を し て くだ さい . SRAM に は 。 失わ れ た ら 二 度 と 取り 戻せ な い 
デー タ も 格納 され て いる の で ,。 この よう な プロ グラ ム の 組込み に は 十分 注意 し て くだ さい . 


ディ スク か ら の 起動 

IPL は フロ ッッ ピー ディス ク の も の と , ハー ド デ ィ スク の も の と で は 動作 が 多少 違っ て きま す . 
これ は ,。 ハー ド デ ィ スク を 領域 分 割 し て , 複数 の シス テム で 使用 で きる よう に な っ て いる か ら で 
す . ハー ド デ ィ スク の TIPL の 場合 。 BOOT プロ グラ ム か ら 起 動き れる と , どの シス テム を 起動 す 
る の か 聞い て きま す . そこ で 1 つの シス テム を 選択 する と , その シス テム を 探し て 見 つか っ た ら 
読み 込ん で 実行 し ます . 

フロ ッ ピ ー デ ィ ス ク の IPL と , 単 一 の シス テム で 使用 し て いる ハー ド デ ィ スク の IPL は , 動作 
が ほとん ど 同 じ で 。 HUMAN.SYS を 探し て 見 つか っ た ら 読 み 込ん で 実行 し ます .。 なお, 
HUMAN.SYS は ファ イル 属性 が シス テム 属性 に な っ て いる の で , DIR コマ ンド を 実行 し て も 見 
を 村 で きま せん 。 

また 。 HUMAN.SYS が 次 の 条件 を 満た し て いな いと 実行 で きず , 画面 に エラ ー 表 示 が 出力 され 
県 ず 。 


・ ル ー ト ディ レク トリ の 先頭 か ら 32 エン トリ の な か に な けれ ば な ら な い 

・ 連 続 し た セク タ に 格納 され て いな けれ ば な ら な い 

・ ロ ー ド アド レス が S$6800 番地 に 固定 され て いる 双 形 式 の 実行 可能 な ファ イル で な けれ ば 
な ら な い 

・$6800 番地 か ら 実 行 で き な け れ ば な ら な い 


これ ら の 条件 が すべ て 満た され て いれ ば HUMAN.SYS は $6800 番地 か ら 読 み 込ま れ て , 実行 
され ます . 
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還 08 内 の 負 理 

Human68k は 起動 する と まず 入出 力 装 置 の 初期 化 を し ます . この と き 初 期 化 さき れる の は 
HUMAN.SYS で サポ ー ト され て いる 周辺 装置 で 。 それ ら の 装置 の 接続 状態 に 合わ せ て デバ イス 
ドラ イ バ を 初期 化し ます . た と えば ,。 ハー ド デ ィ スク は 接続 され て いな い 場 合 も ある の で その 
チェ ッ ク を し 。 接続 きれ て いた ら ド ライ ブ 数 や ドラ イブ 名 を 設定 し ます . 

次 に 各 入 出力 装置 の た め の バ ッ フ ァ な ど , シス テム で 使用 する 作業 領域 を 確保 し ます . この よ 
うに し て ほとん どの 初期 設定 が 終了 し ,。 ディ スク な どの 外部 記憶 装置 が アク セス 可能 に な る と 。, 
タイ トル 表示 の 準備 段階 に は いり ます . シス テム を 読み 込ん だ ディ スク の ルー トディ レク トリ か 
ら 。TITLE.SYS。 KEY.SYS, USKCG.SYS。 CONFIG.SYS の 順番 で 読み 込み , その 内 容 に 従っ 
た 処理 が 行わ れ , ファ イル が 見 つか ら な か っ た 場合 は 。 シス テム 既定 値 で 初期 化 さ れ ま す . 

また 。CONEFIG.SYS の 設定 内 容 に 従っ て デバ イス ドラ イ バ が 組み 込ま れ , Human68k が 上 古 有 
する シス テム 領域 が 決ま る の で ,。 ユー ザー プロ グラ ム が この 領域 を 誤っ て 破壊 し な いよ うに スー 
パー バイ ザー エリ ア と し 。 CONFIG.SYS で 指定 され た シェ ル を 起動 し ます . 


己 . コ . 己 終了 時 の 処理 


X68000 の 本 体 前 面 の 電源 スイ ッ チ を ON に し た と き は , ハー ド 的 に 回 路 が 働き 主要 な 1C や 
LSI の 電源 を ON に し ます が , OFEF に され た と き は , 単に それ ら の 1IC や LSI に 対し て 割込み が 
か か る だ け で す . 

この 割込み が か か る と,。 電源 が 切れ る まえ に し な けれ ば な ら な い 処 理 . た と えば ハー ド デ ィ ス 
ク の シッ ピン グー ド デ ィ スク の ヘッ ド を シッ ピン グ ザ ゾー ン と いう 領域 に 待 札 する と と ) な ど を 
その 割込み ルー チン で 行い ます . 

通常 。 本 体 前 面 の 電源 スイ ッ チ また は 外部 POWER ON 端子 が OFF に され る と 割込み が か か 
り , ROM 内 に ある 割込み ルー チン に 制御 が 移り ます . この ルー チン で は スイ ッ チ OFF か ら 約 2 
秒間 電源 スイ ッ チ と POWER ON 端子 の チェ ッ ク を し て , ふた た び ス イッ チ が ON に され て いた 
ら 処 理 を 中 断 し て 割込み 処理 か ら 復 帰し ます . スイ ッ チ が OFF の まま だ っ た ら ,。 TRAP#10 命 
令 を 実行 し , DOS 内 の サブ ルー チン へ 制御 が 移り ます . こ の ルー チン で 行っ て いる こと は ,。 オー 
プン きれ て いる すべ て の ファ イル ハン ドル の クロ ー ズ や 。 ディ スク バッ ファ に 関す る 処理 な ど で 
ずら 「 

こう し て DOS に 関連 し た 処理 が 終わ っ た な ら ば ぱ ば, 実際 に 電源 を OFF する ROM 内 の サブ ルー 
チン へ 制御 が 移り ます (TRAP #10 命令 を 実行 し た と き の 引 数 の 値 は 。 その まま ROM 内 の ルー 
チン に 渡さ きれ る ). この ルー チン で は , まず レジ スタ D0 の 値 を チェ ッ ク し て ,。 その後 の 処 理 を 決 
め ま す . 電源 を OFF に する こと に 決定 し た 場合 は , SRAM に 格納 され て いる デー タ を 参照 し て 
TV コン トロ ー ル や フロ ッッ ピー ディス ク の イジ ェクト を 行い 。 ま た ,。 必要 な ら ば SRAM の 内 容 を 
更新 し ます . ハー ド デ ィ スク が 接続 きれ て いた ら シ ッ ピ ング し ます . こ の よう に し て SRAM や 周 
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辺 装置 に 対す る 処理 が すべ て 終了 し た ら , I/O エリ ア で ある $E8E00F 番地 に $00。 $0F。 $0F の 順 
番 で 3 バイ ト 書 き 込 ん で 電源 を 切り ます . 

通常 。 電源 が 切れ る 際 に は か な ら ず TRAP#10 命令 が 実行 きれ る の で ,。 その 例外 ベク タ を 書き 
換え る こと で 電源 の OFF の 前 に ユー ザー プロ グラ ム を 実行 する こと が で きま す . 


電源 OFF ル ー チ ン 


POWER ラ ンプ を 点滅 





させ , 約 2 秒間 待つ 


TRAP せ 10 発 行 


DOS 関 連 の 処理 
由 ァイル の ク ! 
ロー ズ な ど 





IOCS ROM で の 処理 
ハバ ハバード ディ スク の シッ 





ビ ピング な ど 


本 当 に 
電源 を 切っ て も N 
いい の か ? 


Y 
$E8E00D に $00, $OF, リセ ッ ト , 再 ス ター ト 
$0F を 書き 込む 


己 .1 ヨ 終了 の 過程 


ウジ 





(590UD 


ブロ グラ ミン グ ガ イ mn 
- ロ AO| じ に 言語 と 近い 考え カ 
信人 ロ は , 制御 構造 や 変数 の 扱い に ー フ リ タタ で す . 従来 の 


し が よく 
合っ で デ ロ ダ ラ これ まで より 見 通 
開 BASIC を コツ さえ 昌 導 で され ば どれ ま 人 ERHRGE 


5 ん が , コ ーー ヽ が 
/ ォ ご On S 上 an+ on より 手軽 に プロ グラ EE ロロ ロロ - コ k」 と いう 
箇 ee で 解説 する 「 Compiler ドー タ を 使え ば , X 
8 2 還 の mm 
+nt ERR = また . ME BASTOO コン 

パッ ケー ジ に 





ー ン 
+nt DrTRMAx 、 31 ソー スプ ログ ラム に 変換 し て コ 
S と たと (807 ーー の の プロ グラ ム を 〇 の ソー ス - コー ドー トー Out ェ CrndG p 
て よ エ ざき (4)- -BABIC 7 


Gr さて と ます . っ すす LM ASIO。 
も で N ,X- 日 

G3m s++ ェ ぐ 1GS 上 ェ (3) 昌 Peー と の 違い を 混 え な が ら KK え で ち ト 1 
/ ォ 来 の 日 

で は , 従 
/ * 8 と うら もち) ム def ュ ュ :】 ヒ に Sa ミン グ 法 を 説明 し ます . 
/ の プロ 
え n 革 3 ェ t ッ = = ま 0 /* PCM 
1 の PCEFeg pu P+a ョ ャ ッ チェ eo きき の /* づ . 9K ッ 
うわ た た = り / ォ 
1 の ト AOQG = ュ を Cat mod 
ュ 各 上 ^ こ SCS テ ze お /* ェ acc 
ょ わた で @ で Goun+ P よ a で ou て = 0 /* で CO ェ dn 〇 と お よき て ま ム らく 
た x5asea ここ 0 , en = 0 
/* 


G ュ rm ご わら と -、、 CMdata (65535 
diy ュ ふい “CMdata (] ち S535) 

dm s+ と て menus 上 (9 9 ) / キ そっ + HGnu() 

im わた HUStat (15) / メメ で っ と 8GnGU7) 

dim S た と で ユ rs (31) [22] ーー PErg(31) [7 に を ー~+me (31) [51 ーー 間 


/* cons 上 ang Ya と . def3ni も on 。 よ o テ use ADPCM <-、 PCM da よ ぁ ュ ORVert ュ in 


か と 計 滞 。 34 ゴ 7 ィ 末 45 0, 


+18. +30。 +43 トウ アプ 。 よ プ 3、 +90, っ 


98 
。 876 960.1ee,12a2 ュ 251 よら 5 
YG ユ 和 人 SC@P (15) て 【 ーー ユ . oh ョ オ 。 上 る し 。 


3.| X-BASIC の 設定 


3. ] X-BABIC の 設定 


X-BASIC は 。 大 きく 分 け て 2 つの 部 分 か ら 構 成 さ れ て いま す . 1 つ は , ファ イル 人 入出 力 や テキ 
スト 画面 制御 , 演算 処理 な ど 必 要 最 小 限 の 機能 が 備わっ た 最も 基本 的 な 部 分 (BASIC.X), そ し て 
も う 1 つ は 。 グ ラフ ィ ッ クス や オー ディ オ , マウス,。 カ ラー イメージ ・ ユ ニッ ト な ど を 制御 する 関 
数 が は いっ て いる いく つか の 外部 関数 ファ イル (拡張 子 FNC) の 部 分 で す . この よう に , 必要 な 
部 分 だ け を 組み 込め る よう に な っ て いま すか ら , 自分 の 持っ て いな い 周 辺 装 置 を 制御 する た め の 
関数 な ど は 取り は ず し て し まえ ば , メイ ン メ モリ の 節約 を は か る こと が で きま す . 

外部 関数 の 組込み は , BASIC.CNF と いう ファ イル 中 で 指定 し, X-BASIC の 起動 時 に 指定 され 
た 構成 で メモ リ 上 へ 読み 込ま れ ま す . この ファ イル に は ,。 外部 関数 ファ イル の 設定 の ほか に , フ 
リー エリ ア , 横 表 示 文 字数 ビー プ 音 の ON ンプ OFF, 予約 語 の 大 文字 小文字 表示 の 指定 を する 
こと が で きま す . また ,。 あら か じ め 用 意 き れ て いる 外部 関数 の ほか に , 独自 の 外部 関数 を 作成 し 
て 組み 込む こと も 可能 で す . 

な お 。 この ファ イル で 設定 し た 項目 は 。 起動 後に 変更 する こと が で きま せん の で , 構成 を 変更 
し た い 場 合 は 。BASIC.CNEF の 内 容 を 書き な お し て X-BASIC を 再起 動 し な けれ ば な り ま せん . 

リス ト 3.1 で は , フリ ー エ リア を 128K バイ ト , 起動 時 の 横 表 示 文 字数 を 96 文字 ビープ 音 の 
発生 を ON,。 予 約 語 は 小文字 表示 扱い , 外部 関数 ファ イル (AUDIO.FNC, GRAPH.FNC, MOUSE. 
FNC。 MUSIC.FNC, SPRITE.FNC, STICK.FNC) を 組み 込む こと を 意味 し て いま す . 


リス ト 選 . ] コン フィ ギュ レー ショ ン フ ァイル の 設定 


FREE = 128 
WIDTH = 96 
BEEP = UON 
CAPS = OFF 
FUNC = AUDIO 
FUNC = GRAPH 
FUNC = MOUSE 
FUNC = MUSIC 
FUNC = SPRITIE 
FUNC = STICK 


こと で いう フリ ー エ リア と は 。 プ ログ ラム エリ ア ,。 変数 , 配列 エリ ア を 合わ せ た だ た 大き さ で 。 外 
癌 関数 で 使用 する 領域 (FM 音源 用 の トラ ッ ク バ ッ フ ァ な ど ) や 子 プ ロ セ ス 実 行 の た め の 信 域 は 管 
まま 6 まだ A。 

設定 が 完了 し レ したら 。X-BASIC を 起動 きせ て み ま し ょ う . Human68k の コマ ンド 待ち の 状態 か 
ら 。 次 の よう に 入力 し ます . 
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A> BASIC 


この と き , オプ ショ ン を つけ る こと で 。 さき ほど の コン フィ ギュ レー ショ ン フ ァイル と 同様 に 
設定 を 変更 する こと が で きま す .。 また ,。 コン フィ ギュ レー ショ ン フ ァイル を いく つか 用 意 し て お 
き , その 名 前 を 指定 する こと で , 必要 に 応じ た 双 -BASIC の 動作 環境 で 起動 きせ る こと も で きま 
すなお, この ファ イル 名 の 指定 が な い 場 合 は 。 BASIC.X の ある ディ レク トリ と 同じ ディ レク ト 
リ に ある “BASIC.CNF” を 参照 し ます . 

次 の 例 は 。 フリ ー エ リア を 256K バイ ト 。 コンフィ ギュ レー ショ ン フ ァイル は ゞ USR.CNE?。 
横 表示 文字 数 は 64 文字 で 起動 し た 場合 で す . 


A> BASIC プ F256 CUSR.CNF プ W64 


また だ た, BASIC.X の ある ディ レク トリ に AUTORUN.BAS と いう ファ イル が あれ ば 。, 起動 時 に 。 
そこ に 書か れ て いる 内 容 を 自動 的 に 実行 し ます . ちょ うど 。 Human68k の AUTOEXEC.BAT 
ファ イル と 同じ 働き で す . 

X-BASIC を 終了 させ る 方 法 は 2 種類 あり ます . ダイ レク トモ ー ド か ら の 場合 は system 命令 
を , プロ グラ ム 中 か ら の 場合 は exit () 関数 を 使い ます . X-BASIC を 終了 させ な いで Human68k 
の コマ ンド を 実行 する 場合 は , ダイ レク トモ ー ド か ら ~ ヾ /” に 続け て Human68k の コマ ンド を 書 
け ば OK で す . また , “~/ ツ だ け 書 いた 場合 は 。 Human68k の コマ ンド 待ち に な り ま す が 。EXIT 
コマ ンド を 使え ば ふた た び XX-BASIC に 戻る こと が で きま す . 


3. つ X-BASIC の 己 つ の バー ジョ ン 


X-BASI し に は 。 2 つの バー ジョ ン が あり ます . 1 つ は , Human68k の シス テム ディ スク に は 
ゅ いっ て いた バー ジョ ン 1.0。 も う 1 つ は C Compiler PRO-68k の パッ ケー ジ に は いっ て いた バー 
ジョ ンス 0 で す 。 

この 2 つの 相違 は , float 型 の デー タ の 内 部 表現 と FM 音源 の 内 部 処理 方 法 に あり ます . FM 音 
源 の 内 部 処理 方 法 の 違い は プロ グラ ミン グ 上 の 影響 は あり ませ ん が ,float 型 の デー タ の 内 部 表現 
の 違い に は 気 を つけ な けれ ば な り ま せん . 

バー ジョ ン 1.0 で は ,。 SHARP フォ ー マ ッ ト と 呼ば れる 独自 の 形式 で 内 部 操作 を し て いま し た 
が , バー ジョ ン 2.0 で は , 浮動 小数 点 演算 プロ セッ サ が 直接 扱え を る IEEE フォー マット に 変更 され 
て いま す . こ の た め 。, バ ー ジ ョ ン 1.0 の float 型 の デー タ を ファ イル に 保存 し て いる 場合 , バー ジョ 
ン 2.0 で 読み 込む と 正しい 値 を 得る こと が で きま せん . この 場合 は , floatl.x と いう デバ イス ドラ 
イ バ を ,。 Human68k 起動 時 に 組み 込ん で お く こ と で 解決 で きま す . 
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3.3 X-BASIC の 基本 的 な 操作 


3. つ X-BABIO の 基本 的 な 操作 


いよ いよ プロ グラ ミン グ を 始め る まえ に ,。 双 -BASIC の 操作 方 法 を 学ん で お く こ と に し ます . 基 
本 的 に は これ まで の BASIC と 変わ りな い の で す が 。 その 特徴 を いか す 便 利 な 機能 も 用 意 き され て 
いま す . 





づ .d.1 プロ グラ ム の 編集 


プロ グラ ム を 作成 し た り 編 集 し た りす る た め の 命 令 に は , 表 3.1 の よう な も の が あり ます . 









delete [ く 開 始 行 >] [一 [< 最終 行 >]] 指定 され た 行 の 削除 

[Ifiles [^ く デバ イス 名 > < パス 名 >/] [Ifi. デバ イス 上 の ファ イル 一 覧 表示 

kil *[< デ バイス 名 う ] < ファ イル 名 ki 
メ グラ 示 


省略 形 
auto [< 行 番号 >][, < 増分 >] 
「[ く コマ ンド >] 

Chdir “< ディ レク トリ デ 
chdrv “< ドラ イブ 名 >“ 







中 
中 


Clear 居 L. 


C 


『_ 1 








の 
5 
[Olet 0 [に < 


load “< ファ イル 名 >” 
load@^~< フ ァイル 名 >“ | , < 行 番号 > ] [ , く 増分 > ] 
name “< く 旧 ファ イル 名 >",。^< 新 ファ イル 名 >” 


行 番号 の ある プロ グラ ム の ロー ド 
lo. 行 番号 の な い フ ログ ラム の ロー トド 


ファ イル 名 の 変更 
メモ リ 上 に ある プロ グラ ム の 消去 


ファ イル か ら プ ログ ラム を 読み 込ん で 実行 





renum [ く 新 行 番号 >] [, <| 旧 行 番号 >] [, < 増分 >] 
run [< 行 番号 > ] 
PE 1 デル Y 素 名 | で プ ファ テイ ル 名 が " 


save [@] [< デバ イス 名 > | < ファ イル 名 >? 。 
Rh ロ ム の セー プ 
[, < 行 番号 1>][ 一 [< 行 番号 2>」] 0 ど 


[search “< 検索 文字 列 >” [se. 文字 列 の 検索 


syStem SYS. Human68k また は 親 プ ロ セ ス に 戻る 
width < 文字 数 > 


6 
① 
















テキ スト 画面 の 横 表 示 文字 数 の 設定 (64, 96) 


表 コ .1 プロ グラ ム の 編集 を する た め の コ マン ド 
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メモ リ 中 に ある プロ グラ ム の 表示 に は list 命令 を 使い ほす. エラ ー が 起こ っ た り , プロ グラ ム を 
中 断 し た 直後 な ら ば , ^~.” (ピリ オォ ド ) で その 行 番号 を 表せ ます . また , func ベ メメ と いう 形 で 定 
義 き され て いる 関数 の 名 前 を 行 番号 の 代り に 指定 する こと も で きま す . 

renum 命令 で 行 番号 を つけ 替え を ます が , プロ グラ ム 中 の goto 文 や gosub 文 , then, else に 続く 
飛び 先 を 表す 行 番号 は 変更 きれ ませ ん . ちょ っ と し た プロ グラ ム な ら 便 利 な 機能 で す が , で きる 
限り 行 番号 に 依存 し た プロ グラ ム を 書か な い に こ し た こと は あり ませ ん . 

また ,。 X-BASIC に は 文字 列 を 検索 する 機能 も 用 意 き れ て いま す . search 命令 を 使え ば , デバ ッ 
グ 時 な ど 変 数 を 探し た りす る 場合 に 便利 で し ょ う . lsearch 命令 は , 文字 列 の 見 つか っ た 行 を プリ 
ンタ に 出力 する こと も で きま す 。. 


3. コ . 己 ファ イル の 管理 


ファ イル の 読込 みや 保存 を は じ め , ファ イル 管理 を 行う た め の 命 令 に は , 表 3.2 の よう な も の 
が あり ます . 


書 式 機 能 


chdir ` く ディ レク トリ ッ >” カレ ント ディ レク トリ の 変更 
chdrv バ く ドラ イブ 名 >? カレ ント ドラ イブ の 変更 


[ 昌 files [* く デバ イス 名 > < パス 名 >?] デバ イス 上 の ファ イル 一 覧 表示 


kil [ く デ バイ ス 名 >] < ファ イル 名 >“ ファ イル の 削除 





load “ く フ ァイル 名 >“ 行 番号 の ある プロ グラ ム の 読込 み 
load@`^< フ ァイル 名 >” [, < 行 番号 >] [, < 増分 >] 行 番号 の な い プ ログ ラム の 読込 み 

name “< 旧 フ ァイル 名 >", “< 新 フ ァイル 名 >“ ファ イル 名 の 変更 ' 

run ~[ く デバ イス 名 >] < ファ イル 名 >“ ファ イル か ら フ ログ ラム を 読み 込ん で 実行 


save [@] [< デバ イス 名 > |] < ファ イル 名 >”[, < 行 番号 1> ] 
[ 一 [< 行 番号 2>]] 





プロ グラ ム の 保存 





表 コ . 己 ファ イル 管理 の た め の 病 令 


files 命令 は カレ ント ディ レク トリ に ある ファ イル の 一 覧 を 表示 し ます . その 後 。 カー ソル を 上 
に 移動 きせ , 目的 の ファ イル 名 の ある 行 で load, 1oad@ , save, save@ と 書い て リタ ー ン キー を 押 
せ ば か ん た ん に ファ イル の 読込 みや 保存 を 行う こと が で きま す (画面 3.1). 

X-BASIC か ら も カレ ント ディ レク トリ や カレ ント ドラ イブ を 変更 し た い 場 合 が ある で し ょ 
う . その 場合 に は , chdir 命令 や chdrv 命令 を 使う こと が で きま す . 

プロ グラ ム を ファ イル に 保存 する 場合 , save 命令 を 使う 方 法 と save@ 命 令 を 使う 方 法 が あり 
ます . 前 者 は , 通常 どおり 行 番号 を つけ て 保存 する の に 対し , 後者 は , 行 番号 を つけ ず に 保存 し 
ます .。 プロ グラ ム の 読込 み は 。 保存 きれ て いる ファ イル の 形式 に 対応 し た も の を 使う の が 原則 で 
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X-BPSIC for 558899 uersion 2.9M 
CoBy 1987 SHRRP/Hudson 


kbutes free 


間 間 昌 ICIHI 間 7 症 間 [TE 症 較 ETHET 豆 





画面 コ .1 fileS と IOg ロ d 


す . save 命令 で 保存 し た も の は load 命令 で , save@ 命令 で 保存 し た も の は , load@ 命令 で 読み 込 
#p わ け で す . も し , save@ 命令 で 保存 し た ファ イル を load@ 命令 で 読み 込ん で し まう と 。 先頭 の 行 
か ら 順 に 等 間隔 で 行 番号 が つけ られ ます か ら , プロ グラ ム 中 で 行 番号 に 依存 し た 記述 (た と えば 
goto。 goesub な ど ) が ある と 。 正しく 実行 きれ な い プ ログ ラム に な っ て し まい ます 。 

な お , BASTOC コン バー タ な ど を 使っ て C 言 語 に 変換 する 場合 は , save@ 命令 で 保存 し な けれ 
ば な り ま せん . また 。, load@ 命令 を 使う と き は , メモ リ 上 に プロ グラ ム が ある と 連結 され て し まい 
ます の で , 読み 込む まえ に new 命令 で メモ リ 上 の プロ グラ ム を 消去 し て お きま し ょ う 。 

この よう 弱 行 番号 を 使わ な いで プロ グラ ミン グ で きま す の で ED な どの テキ スト エディ ォ タ を 
使っ て 編集 する こと が で きま す . ただし, プロ グラ ム 中 に 改行 だ け の 行 が ある と ,。 読込 み 時 に * プ 
ログ ラム の 構造 が 異常 で す " と いう エラ ー を 発生 し ます . 

また , 従来 の BASIC で は append 命令 を 使っ て プロ グラ ム の 連結 を 行い まし た が , X-BASIC 
で は , 行 番号 を つけ な い 形 式 で 保存 きれ て いる プロ グラ ム を load@ 命 令 で 連結 する こと が で きま 
す ( 図 3.1). た だ し , すでに メモ リ 中 に ある プロ グラ ム の 最終 行 番号 より 大 きい 値 を , 読込 み 開 
始 行 番号 と し て 指定 し な けれ ば な り ま せん . 


0/ 
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ディ スク 中 に ある 行 番号 
メモ リ 上 に ある プロ グラ ム の な い プ ログ ラム 










DrOdg.Dbas 












ジグ 
100 /※* sample func str prog(c) 
Int i,」 char Cc 









Str st 









DrIint Ii.」 
return(st) 
endfunc 


load@ “prog.bas”, 1000 


グ ※ ネ sample 
110 int ii 


980 print,i,」 
990 end 
2 議 
1010 func str prog(c) 
1020 char c 

Str St 







メモ リ 上 の ブロ グラ ム に 
prog.bas が 連結 され た 


return(st) 
endfunc 





図 コ .1 ファ イル の マー ジ 


3.3.G ブロ グラ ム の 実行 制御 


プロ グラ ム の 実行 制御 を 行う た め の 命 令 に は 。 表 3.3 の よう な も の が あり ます . 


書 機 能 


変数 と スタ ッ ク の 初期 化 





cont プ ブログ ラム の 実行 再開 
run [ く 行 番号 > 」 メモ リ 上 の プロ グラ ム の 実行 


表 コ . コ 3 ブロ グラ ム の 実行 制御 を 行う た め の 病 令 


これ まで 。clear 命令 を 使っ て 変数 領域 の 大 き さ を 設定 し て いま し た が ,。X-BASIC で は 。 起動 
時 に コン フィ ギュ レー ショ ン フ ァイル に 書か れ て いる 値 (ある い は 。 起動 時 の オプ ショ ン で 指定 
され た 値 ) で 設定 され て し まい ます . も ちろ ん プロ グラ ム 中 で 変更 する こと も で きま せん 。 
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3. ノ | X-BASIC の 基礎 


-BASIC の 文法 は 。 BASIC と いう より は ,。C 言語 ラ イク な 仕様 に な っ て いま す 。 な か で も 。, 
次 の よう な 点 は C 言 語 と 非常 に 似 た 仕様 で ある と いえ る で し ょ う . 


・ デ ー タ の 型 が C 言語 に 近い 型 (str 型 。int 型 。char 型 。float 型 ) で ある 
・ フ ァイル 入出 力 が 従来 の BASIC と 異な り C 言 語 に 近い 方 法 で 扱え る こと 
・ サ ブル ー チ ン を ユー ザー 定義 関数 に で きる こと 


この よう な 仕様 に な っ て いる の は , 次 の 章 で 紹介 する CCompiler PRO-68k と いう パッ ケー ジ 
に は いっ て いる BASTOC コン バー タ で 。C 言語 の プロ グラ ム に 変換 する こと が 意図 され て いる 
から で す 。 

BASIC し か 知ら な い 方 で も , いつ の ま に か 言語 風 の プ ログ ラミ ング を 身 に つけ る こと が で 
きま すか ら , C 言語 の 入門 用 の 言語 と も いえ る で し ょ う . も ちろ ん , X-BASIC イ ンタ ー プ リタ で 
手軽 に デバ ッ グ を 行い , さ ら に 実行 速度 を 上 げた い 場 合 に は ,C 言語 の プロ グラ ム に 変換 し て コン 
バイ 2 する と いら うと と が で きる わけ で す " 


づ .4.] 変数 の 扱い 


X-BASIC の 変数 の 扱い は ,。 これ まで の BASIC と は 多少 異な り , あら た な 考え か た が 導入 され 
て いま す . それ ら は, 構造 化 さ れ た プロ グラ ミン グ を し た り , BASTOC コン バー タ で て C 言語 に 変 
換 し た りす る 場合 に ,。 どう し て も 必要 に な る も の で す . それ で は ,。 最も 基本 的 な こと で ある 変数 
の 扱い に つい て ,。 見 て みる こと に し まし ょ う . 


一 デー クタ 民 
X-BASIC の デー タ 型 に は , 表 3.4 の よう な 4 つの 型 が 用 意 さ きれ て いま す . 






X-BASIC で 使用 可能 な すべ て の 文字 が 使用 で きる 
| 看 
文字 外因 (str 漠 ) 文字 列 の 長 さ は 255 文字 (255 バイ ト ) ま で 


4 バイ ト 整 数 型 (int 型 ) 4 バイ ト (32 ビッ ト ) の 符号 つき 整数 
1 バイ ト 整 数 型 (char 型 ) 1 バイ ト (8 ピット) の 符号 な し 整数 
実数 型 (float 型 ) 8 バイ ト (64 ビッ ト ) の 倍 精 度 実数 


表 コ .4 デー タ 型 










これ ら の 変数 の 型 の 宣言 は 。 変数 を 使用 する 際 に 行う こと が 原則 で す . 型 の 宣言 が 行わ れず に 
使用 きれ た 変数 は 。 int 型 と みな され ます . また 。 str 型 の 変数 は 宣言 時 に 文字 列 の 最大 長 を 指定 
し な いと 自動 的 に 最大 長 が 32 文字 に 設定 され ます . こ の よう に 型 の 宣言 が 義務 づけ られ て いま す 
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か ら , 型 定 言 文字 (%, $, あれ /) を 変数 名 の 後ろ る に つけ て 変数 の 型 を 表し た りす る 類 わ し さ が 
生 る 守り 球 し 左 。 

また , 次 の よう に 書く こと で , 変数 の 型 宣言 と 同時 に , 変数 の 初期 化 (数 値 な ど を あら か じ め 
代入 する ) を する と と や も で きま す 。 


char a … 符号 な し 整数 型 の 変数 a を 宣言 する 
intb 三 1 … 符号 つき 整数 型 の 変数 b を 宣言 し 。 あら か じ め 1 を 代入 し て お く 
田 配列 変数 


X-BASIC で は , 配列 変数 の 宣言 と 初期 化 を 同時 に 行い ます . 配列 の 型 を 宣言 し な い 場 合 は int 
型 の 配列 と みな され ます . 添字 は 0 か ら 65,535 の 範囲 で 指定 し ます が , 配列 の 添字 が 0 か ら 始ま 
る こと に 注意 し て くだ さい . 配列 の 次 元 は 255 次 元 ま で と れ ま す が ,X-BASIC の テキ スト 1 行 に 
は 255 文字 まで し か 書く こと が で きま せん の で , 255 次 元 の 配列 を 宣言 する こと は 事実 上 不可 能 
で す . 

ま た 。 従来 の BASIC で は DATA 文 を 使っ て プロ グラ ム 中 に 数 値 や 文字 列 な どの デー タ を 含め 
る こと が で きま し た が , X-BASIC で は 方 法 が 異な り , 配列 の 要素 と し て デー タ を 書い て お か な け 
れ ば な り ま せん . また , プロ グラ ム 中 で 配列 を 一 度 消去 し て あら た に 宣言 し な お す と いう よう な 
こと も で きま せん . 

リス ト 3.2 の 例 で は , str 型 の 配列 変数 da を 宣言 する と 同時 に , 月 と 曜日 と 天気 を 代入 し て い 
ます 。 


リス ト . 選 配列 宣言 と 初期 化 


1: dim str da(2 の = { "January", February , "March", 
し "ADPII , _May , "June , 
3 PJuly",。 "AuguSt"。 September 「, 
4: "October", "November", December , 
5: "Monday", "Tuesday Wednesday「, 
6: "Thursday", "Friday , Saturday「, 
"Sunday , "Fine , Cloudy" 
0・ 

9: jnt i=M 

19: while i<6 

11: print using "& & ida(i1)i ii+1 

12: endwhile 

13: print 

14: while ji<12 

15: print using & 8 ida(1)j: ir1 

16: endwhile 

17: print 

18: while i<19 

19: print using '& 8 ida(i)i ii+1 
29: endwhile 
21: print 
22: while i<21 
23: print using 「& 8 ida(1)j: 1i+1 
24: endwhile 
25: end 
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田 グロ ー バ ル 変 数 と ロー カル 変数 
べ -BASIC で は 。 グロ ー バ ル 変 数 と ロー カル 変数 と いう C 言語 の よう な 概念 が 導入 され て いま 
す . これ まで の BASIC の 変数 と 同じ 性 質 を 持つ の が グロ ー バ ル 変 数 と 呼ば れる も の で 。 プロ グラ 


ム 中 の どこ か ら で も 参照 する こと が で きま す . ロー カル 変数 は , func <X と いう 形 で 定義 され た 
関数 の な か で 宣言 され た 変数 で 。 その 関数 の な か で し か 参照 で きま せん し 。 関数 の 処理 が 終了 す 


る と 同時 に 消滅 し ます . 

ロー カル 変数 の 名 前 は , グロ ー バ ル 変 数 の 名 前 と 同じ で な けれ ば , 他 の 関数 内 で 使わ れ て いる 
ロー カル 変数 と 同じ 名 前 で も か まい ませ ん . この よう な 2 種類 の 性 格 を 持つ 変数 が 用 意 き れ て い 
ます の で , 関数 内 部 の 変数 と 外部 の 変数 と を 独立 し た も の と し て 扱う こと が で きま す . 

リス ト 3.3 で は , 関数 lshift () と rshift () の 両方 で 変数 st が 宣言 され て いま す が , lshift () 
内 の st は lshift () が 呼ば れん た と き に だ け 現 れ , rshift () 内 の st は rshift () が 呼ば れん た と き に 
だ け 現 れ ま す . 


リス ト d. づ コ ロー カル 変数 


・ Str Sa,Sb 

・ sa = lshift("abcdef”) 
sb = rshift(sa) 

・ print “abcdef" 


print sa: /* "bcdef“" 
print sb: /* "bcde" 
end 


・/* 圧 へ 1 文字 シフ ト 

・ func str lshift(slistr) 

・ Str st 

st = right$(sl,strlen(sl)-1) 
return(st) 

・ endfunc 

5 右 人 へ 】 文字 ジッ ト 

・ func str rshift(sristr) 

・ Str St 

st = left$(sr,strlen(sr)-1) 
return(st) 

・ endfunc 


ーー ビーー ーー ーーー ーー レー に ビー に ーー トー に ーー 
て の 〇 Co- コ の っ CC な CFO ウー 人 思 〈 で OO ょ = ココ O の の Cc RC DOS テー 





田 デー タ の 型 変換 

玩 な る 型 ど うし で 代入 や 演算 が 行わ れる 場合 に , 自動 的 に 型 の 変換 が 行わ れ ま す . 

た と えば , float 型 の 数 値 を int 型 の 変数 へ 代入 する よう な 場合 は , 代入 先 の 型 。 つ まり この 場 
合 は int 型 に 変換 きれ ます . この よう な 型 変換 が 行わ れる 場合 は , 次 の よう な 点 に 注意 し な けれ ば 
な り ま せん . 


・ 変 換 対象 の 値 が 変換 し た い 型 の 値 の 範囲 を 超え る と エラ ー に な る 

・ 実 数 が 整数 に 変換 され る 場合 は 。 小数 点 以下 は 切り 捨て られ る 

・ 論 理 演算 の 場合 は 。 扱わ れる 数 値 は すべ て int 型 に 変換 され た 後に 演算 が 行わ れ 。 結果 も 
int 型 で 得 ら れる 
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また 。int 型 と float 型 ど うし の 演算 で は , 精度 の 低い 型 か ら 精 度 の 高い 型 へ 変換 され て 演算 が 
行わ れ ま す (リス ト 3.4). 


リス ト .24 型 変換 





1: nt =3 。』 

2: float f = 3.14159#,g 
4 3 三 1 \f 

4: g = 1 + f 

0? DF1Ot J,g 





田 シス テム 変数 

シス テム 変数 は 予約 変数 と も 呼ば ん て いた も の で ,。 フリ ー エ リア の 大 き さ や 日 付 な ど が は いっ 
て いる 変数 で す ( 表 3.5)。 この うち 。 date$。time$ を の ぞ き , ユー ザー は 読み 出す こと し か で き 
ませ ん 










現在 の カー ソル 位置 の X 座標 (int 型 ) 
現在 の カー ソル 位置 の Y 座標 (int 型 ) 
一 番 最近 発生 し た エラ ー の エラ ー 番 号 




















DE error off の と きのみ 有効 な 値 を 持つ 
| free 。 メモ リ の フリ ー エ リア の 大 き さ (int 型 ) 
キー 入力 が ある まで 待ち , 入力 され た 1 文字 
を 返す (str 型 ) ' 
nkeys(O) | キー 入力 が ある か を 調べ て , あれ は 1 文字 返 





す . な けれ ば 0 を 返す (str 型 ) 
現在 の 日 付 (str 型 ) 代入 可 
今日 の 曜日 str 型 ) 


現在 の 時 刻 (str 型 ) 代入 可 


表 . ロ シス テム 変数 













リス ト 3. gates, day お お , time 中 の 使用 例 


1: /* 日 付 と 時 間 を 設定 する 

2: str tmp 

3: print "現在 設定 され て いる 日 付 と 時 間 は ”"j:print_date():print "です" 
4: print 

5: print "新しい 日 付 を 入力 し て 下さ い (変更 し な い ! 周 は リタ ー ン キー を 抑 し て 


下さ い ) (YY/MM/DD) "|: 

6: Iinput tmp 

7: jif tmp <> ” then date$=tmp 

8: print "新しい 時 間 を 入力 し て 下さ い (変更 し な い | 時 は リタ ー ン キー を 抑 し て 
下さ い ) (HH:MM:SS) ": 

9: linput tmp 

19: if tmp <> ” then tjime$=tmp 

11: print 

12: print "設定 され た 日 付 と 時 間 は "Eprint_date(O:print " です " 

13: end 

14: func print_date() 

15: print date$j” ("iday$j") "jitime$: 

16: endfunc 





目 め 。 
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う 2.4. 演算 
演算 に 関す る 限り 。 こ れ ま で の BASIC と は 。 さ ほど 大 き な 変 更 は あり ませ ん し か し 。 い くつ 
か 追加 され た 機能 も あり ます の で 。 ここ で は それ ら を 中 心 に 解説 する こと に し まし ょ う . 


画 算術 演算 
X-BASIC に は ビッ ト 単 位 で 右左 に ずら すこ と が で きる シフ ト 演 算 が 用 意 き れ て いま す . た と 
えば , “整数 を 2 僅 す る "と いう 演算 を 2 進 表現 で 見 る と , 1 桁 左 に ずれ て いる こと が わか る で し ょ 


テ 


う . 逆 に “2 で 割る "と いう 演算 を 2 進 表 現 で 見 る と , 1 桁 且 に ずれ る こと が わか り ま す ( 図 3.2). 


ce 舎 「*2」 


1011|1|9|o|1i|91o] =1oo 


の 人 「*2」 


19191i]1]919]1]19]= 50 


SSSIIE 2 ば 


Ll]ol9]1lilolo]i]=25 


1 
eee New Ne NeNets。 時 「/2」 
1 


01019l1l1lol19] = ュ 2 


左 シ フト の 場合 は 右端 に 0 が , 
右 シ フト の 場合 は 左端 に 0 が 
は いる 


づ . 己 進数 で 見 る 「* 己 」,「/ ど ど 」 


これ か ら わ か る よう に , 2 倍 , 4 倍 , 8 倍 な ど は 左 シ フト (shl) 演算 子 で 。 1/2。1/4。1/8 な ど 
は 右 シ フト (shr) 演算 子 で 書き 換え る こと が で きま す . た だ し , 最上 位 の ビッ ト が 1 の と き の 左 
シフ ト 演 算 と , 最 下 位 ビ ッ ト が 1 の と き (奇数 の と き ) の 右 シ フト 演算 で は 正しい 値 を 得る こと 
は で きま せん 。 

演算 子 の 種類 を 表 3.6 に 示し ます が , 演算 の 優先 順位 は 表 の 上 へ いく ほど 高く な っ て いる こと 
に 注意 し て くだ さい 、. 


ーー |sza | っ 0)、 ハ 〈t⑧ リ t』 き ぬる 4 ーー 
xxy 







表 コ .B 算術 演算 子 
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一 関係 六 算 

関係 演算 は 2 つの 数 値 (また は 2 つの 文字 列 ) を 比較 し , 等 し けれ ば を 真 , 異な っ て いれ ば 偽 
を 返す 演算 で す . X-BASIC で は 真 を 一 1, 偽 を 0 で 表し て いま す ( 表 3.7). 

こう し た 演算 は 条件 分 岐 の 際 の 判断 に 利用 きれ る こと が 多い の で す が , これ 以外 で も リス ト 3. 
6 の よう な 使い か た が で きる で し ょ う . この 例 で は , 1 か ら 30 まで の 整数 を 順に 3 で 割り , 割り 
切れ た 場合 だ け (3 の 倍数 ) の 数 値 を 表示 する も の で す . 


寺 し い ー 


し 


小さ い x く y 


」 
小さ いか 等 し い 


表 コ .Z 関係 演算 子 





リス ト ご 関係 演算 子 の 使用 例 


1E int i 

2: for j = 1 to 39 

< if (ji mod 3 = then print ji 
4: next 





一 論理 演算 
論理 演算 は 真 と 偽 の 2 つの 値 で 行う 演算 で す . 複数 の 条件 を 判断 する と き や ビ ッ ト 演 算 ,」 ブ ー 
ル 演 算 を 行う と き に 使用 し ます . ブー ル 演 算 と は , 真 (0 以外 ) か 偽 (0) か を 扱う 演算 で す ( 表 


3.8) 。 


not( 否定 ) and( 論 理 積 ) or( 論 理 和 ) xor( 排 他 的 論理 和 ) 


X TnOt x 
] 0 





1 





表 コ . 日 計 理 演算 子 


呈 オ 4 


3.4 X-BASIC の 基礎 


一 関数 

関数 と は , 与え られ た 値 に 対し て , あら か じ め 定 義 き 8 れ て いる 処理 を 行い 。 その 結果 を 返す も 
の を いい ます . これ まで の BASIC で は ,。 DEF FN を 使っ て ユー ザー 関数 を 定義 で きま し た が , 
X-BASIC で は 演算 だ け に 限ら ず 。 サブルーチン を 関数 と し て 扱う こと が で きる よう に な っ て い 
ます 。 

た と えば 次 の よう な 関数 plus を 邦 え て み ま し ょ う . 


func plus (a, b) 
return (a 十 b) 


endfunc 


これ は 。a と b と いう 2 つの 値 を 与え を る と 。 その 和 を 返す 関数 で す . この plus と いう 関数 が 定 
義 き され て いる と 。 


answer 三 plus (1, 2) 


と いう よう に 関数 名 と 引数 を 書く こと で 演算 を 行え ます . 
関数 の 定義 。 利用 の 方 法 に つい て は 。 3.6 節 で 詳し く 述 べ る こと に し ます . 


コ .24. ヨ ステ ー ト メン シト 

X-BASIC に は 表 3.9 の よう な ステ ー ト メン ト が 用 意 き れ て いま す . ステ ー ト メン ト と は プロ 
グラ ム を 記述 する た め の 予 約 語 で 。 プ ログ ラム モー ド か ら 使 うこ と が 原則 で す が , ダ イレ クト モー 
ド で 実行 で きる も の も あり ます . 

ステ ー ト メン ト の 書き か た は これ まで の BASIC と 同じ で ,。“: を 使っ た マル チ ス テー トメ ン 
ト も 可能 で す 





ーー 
ーー Zsmef 


color [属性 0. 4. 8,12 の カラ ー コ ー ド , 
属性 1 5, 9. 13 の カラ ー コ ー ド , 
属性 2. 6, 10. 14 の カラ ー コ ー ド , 
属性 3 7, 11, 15 の カラ ー コ ー ド 」 























テキ スト の パレ ッ ト の 色 を 変更 する 













テキ スト 画面 の スク ロー ル エ リア を 設定 する 
< ファ ンク ショ ン キ ー 表 示 > は 0 の と き 表 示せ 
ず , 1 の と き は 表示 する 







console < スク ロー ル 開 始 行 >, く ス クロ ー ル 幅 >, 
< ファ ンク ショ ン キ ー 表 示 > 
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プロ グラ ム を 終了 する . ブロ グラ ム 内 に いく つ 
で も 置け る 


error on で , 外部 関数 で エラ ー が 発生 し た と き に 
エラ ー メ ッ セ ー ジ を 表示 し て 実行 を 停止 する モ 
ー ド に な る . error off に する と エラ ー メ ッ セ ー 
ジ を 出さ ず に 次 の ステ ー ト メン ト に 実行 が 移る 


error On ログ error off 
(error off は プロ グラ ム 実 行 中 の み 有 効 ) 
error Off 時 に エラ ー が 発生 し た 場合 , エラ ー の 
番号 が シス テム 変数 errno に 格納 され る 


X-BASIC 上 で オー プン され た すべ て の ファ イル 
を クロ ー ズ し , 外部 関数 の 終了 処理 を し た 後 , 
親 プ ロ セ ス に 戻る 


キー ボー ド か ら 入 力 さ れ た デー タ を 指定 し た 変 
数 に 代入 する . プロ ンプ ト 文 と 変数 名 の 区 切り 
と し て セミ コロ ン を 使用 し た 場合 ,. プロ ンプ ト 
文 の 後に 疑問 符 が 表示 され る . カン マ を 使っ た 
場合 ,、 プロ ンプ ト 文 の 後に 疑問 符 は 出 な い . str 
型 の 場合 , 宣言 され て いる 文字 変数 の 最大 長 ( 宣 
言 さ れ て いな い 場 合 は 32 文字 ) を 超え て は 代入 














ファ ンク ショ ン キ ー の 内 容 を 定義 する 


指定 され た 文字 列 変 数 に キー ボー ド か ら 入 力 さ 


key < ファ ンク ショ ン キ ー 番 号 >。 < 文字 列 > 










れ た 文字 列 を 代入 する . カ ンマ や 引用 符 な ども 入 
力 で きる . プロ ンプ ト 文 の 後に 疑問 符 は 出 な い . 
文字 変数 に 入力 で きる 最大 文字 数 は , 宣言 され 
て いる 文字 変数 の 最大 長 . 宣言 され て いな い 場 
合 は 32 文字 を 超え て は 代入 され な い 
カー ソル を テキ スト 画面 上 の 指定 され た 座標 へ 
移動 する . < カー ソル スイ ッ チ > は プロ グラ ム 中 
の み で 有効 で 1 で , カー ソル を 表示 , 0 で 表示 し 












linput [^ く プロ ンプ ト 文 >” :] < 文字 列 変数 > 






Input [^ く ブフ ロン ジン プ ト 廊 2?" 。 (また は ほり] 
《 変 数 名 > [, < 変数 名 > 


















locate <X 座標 > <Y 座標 > 
[.。 < カー ソル スイ ッ チ >] 


テキ スト 画面 に 文字 列 や 数 値 を 表示 する . 複数 
[Ilprint [using < 書式 制御 文字 列 >] [< 式 〉 .… の デー タ を 表示 する 場合 , 区 切り と し て カン マ 
昌 昌 と セミ コロ ン が 使用 で きる 


従来 の REM 文 に あたる も の で , 注釈 を 入れ る た 
め の ス テー トメ ント 









/* [< 注釈 文 >] 






screen < 表示 画面 サイ ズ >, < 実 画面 お よび 色 モ ー 
ド >, <High/Low Res>, 
< グラ フィ ッ ク 画 面 の 表示 ON/OFF> 





画面 の モー ド を 再 設 定 する 





ブロ グラ ム の 実行 を 中 断 す る 





表 コ . ヨ ステ ー ト メン ト 
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ヨ . 呈 X-BASIC の 制御 構造 


いく ら 。 た くさ ん の 関数 を 知っ て いて も ,。 プロ グラ ム 全 体 の 流れ を 決め る 制御 構造 に つい て 知 
ら な けれ ば プロ グラ ム を 書く こと は で きま せん . 関数 と 制御 構造 と は , ちょ うど 車 の 両輪 に た と 
※ ある トウ 。 

X-BASIC で は , これ まで の BASIC に は な か っ た 制御 構造 が 導入 され て いま す の で , より 見 通 
し の よい プロ グラ ム を 書け る よう に な っ て いま す . これから 紹介 する 制御 構造 を マス ター すれ ば , 
いよ いよ 双 -BASIC で プロ グラ ム を 書き 始め る こと が で きる よう に な り ま す . 


コ ..] 制御 構造 

すでに お な じみ の ithen--else や 。for--next。while--endwhile。repeat--until な ど を 制御 
構造 と 呼ん で いま す . X-BASIC で は , これ ら の 制御 構造 に 加え , C 言語 に 見 られ る switch--case 
^-endswitch が 追加 され て いま す ( 表 3.10). また ,。 if> や while な ど で は “けけ で くく る こと 
で 複数 行 に わた っ た 処理 内 容 を 書く こと が で きる よう に な っ て いま す . 

それ で は 。 条件 分 岐 と 繰返し (ルー プ ) と いう 2 つの グル ー プ に 分 け て 解説 を する こと に し ま 
まう 。 


機 能 
最も 内 側 の switch-Cendswitch, while->end- 
while, for->next, repeat->until 文 の な か か ら 強 
制 的 に 抜け 出す 
6 現在 の for-next,。 while--endwhile, repeat 
WI until の ルー プ を 強制 的 に 再開 する 
指定 され た 回 数 だ け 文 を 繰り 返す . 変数 は ルー 
プ が 1 回 まわ る ご と に +1 さ れる 








for int 型 変数 = < 初期 値 > to < 最終 値 > 


0 従来 の for 文 に あっ た step” は な く , 変数 の 変 
NE 化 は +1 に 固定 され て いる 
func [< 戻り 値 の 型 >] < 関数 名 > ([< 引 数 > [: < 引数 の 型 >] 
Me ]]) 
く 関 数 の 内 容 > 関数 を 定義 する 
[return(< 数 値 文 字 ノ 変数 名 >) 」 
endfunC 
ecoe pa 指定 され た 行 番号 か ら 始 まる サブ ルー チン を 呼 
gOSub <〈 行 番号 > て return 
び 出 す 
goto 行 番号 指定 し た 行 に 実行 を 移す 
if < 条件 > then < 文 1> 条件 が 成り 立っ た 場合 < 文 1> を 実行 し , 成り 立 
[else < 文 2>] た な い 場 合 < 文 2> を 実行 する 





" 


耳 / 
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repeat 
く 
until < 条件 > 


switch < 式 0> 
CaSse < 式 1> 
く 文 1> 


Case < 式 2> < 式 12 て < 式 n> まで の うち , < 式 0> と 一 致す る 


< 文 2> 値 を も つ case の < 文 > を 実行 する . 一 致す る も 
の が な い 場 合 は , default の 後 の < 文 D> が 実行 
caSse < 式 n> され る 
く 文 n> 
default < 文 D> 
endswitch 


while < 条件 > 


く 文 > 条件 が 成り 立つ 間 < 文 > を 実行 する 
endwhile 





表 コ .10 制御 構造 


田 朱 件 分 岐 

変数 の 内 容 や 計算 結果 に よっ て , それ に 応じ た 先 へ 分 岐 き せる こと を 条件 分 岐 と 呼び ます . 2 方 
向 の 条件 分 岐 を 行う ithen--else, そし て , 複数 方 向 へ の 条件 分 岐 を 行う switch--endswitch が 
あり ます . 


f け 一 then 一 IS 
通常 。 関係 演算 子 を 使っ て 条件 を 判断 し ます が , さら に 論理 演算 子 を 用 いて 複数 の 条件 を 判断 


で きま す . then や else の 処理 は {) を 使っ て C 言 語 風 に 複数 行 に わた る ブロ ッ ク を 構成 で きま す 
(リス トド 3./)。 


リス ト 紀 ./Z if-then 一 mlse 


1: char c=M 

2: c = asc(jnkey$) 

3 if c >= aa and cC < で = then 【 
4 : C =C- 8 + AA" 

5: print chr$(c): 

6: })else ifc>= "A "andc <='Z then 5 
[か ニモ の ーー " ル ャ 8 

8: print chr$(c): 

9: 】 else { 

19: color 1 

全 攻 print “Sono ta no Moji" 
5 color 3 


8 print chr$(c) 
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Switch 一 CaSe 一 ndSwitoh 

case の 式 に は 整数 と 文字 定数 の み が は いり ます . 従来 の BASIC の on-goto (gosub) は X 
-BASIC で は switch 文 を 使っ て 記述 し ます . し か し , on com goto。 on key (n) goto な どの 
よう に 割込み を 使っ た 分 岐 は で きま せん . リス ト 3.8 で は , 入力 され た 数 値 に よっ て , 6 方 向 へ の 
分 岐 を し て いま す . 


リス ト 紀 . ロ switch-case-endswitch 





1: int 」 
2: jinput "Please Type Here What your favorite Number 「,| 
3: if ji<9 then { 
4: 。 print "You are DEVIL!U" 
5: end 
6: 】) else 【 
が 4 Switch ji 
8: case 9: print "Xerox : break 
9: case 1: print "Data General One”": break 
19: case 2: print “Cray-2": break 
遇 case 3: print "Sun-3”": break 
12: case 4: print “"SX-4”": break 
13: case 5: print "BASIC MASTER Level3 Mark5": break 
14: default: print "SHARP 010F 7* DPIDt “8 お 8000“) color 
3: break 
5 endswitch 
16: 
17: end 
一 ルー ブ 


同じ 処理 を 何 回 も 実行 する と き に は ルー プ を 使い ます . ルー プ に は 単純 ルー プ の for--next。 条 
件 ルー プ の while-endwhile。repeat--until が あり ます . 


for 一 next 

初期 値 か ら 最終 値 ま で を 1 ずつ 増やし な が ら 繰 り 返 し ます . 初期 値 が 最終 値 よ り 大 きい 場合 は 
実行 され ませ ん .。 リス ト 3.9 の 例 で は , 変数 i と 変数 j を 1 か ら 9 ま で 1 ずつ 増加 させ な が ら ' 九 
九 の 表 ” を 表示 する も の で す . 


リス ト . for-next 


本 ! [7 電 ) ま 
2: for ij = 1 to 9 


3 for 」 = 1 to 9 

4: print using ” ji*J) 
0: next 

6 print 

7・ next 


uu くく テテ そそ キキ キキ 
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会 来 の BASIC と 最も 異な る の は , “step” に よる 増分 の 指定 が で き な い 点 で す . 増分 を 十 1 以外 
の 値 に し た い 場 合 は , for--next で 増加 させ る 変数 は 単なる ルー プ カ ウ ンタ と し て 利用 し, 目的 の 
増加 を する 変数 を 別に 用 意 す る こと に な り ま す . リス ト 3.10 で は , 0.1 ずつ の 増加 を させ る た め , 
ルー プ カ ウ ンタ の 値 (変数 1) に 0.1 を 掛け て いま す . また , 増分 を ー1 に する た め に ,。11 か ら ル ー 
プ カ ウ ンタ の 値 (変数 :) を 引い て いま す . 


リス ト 避 .1 増分 の 変更 


15 ht 1 

2: float x,d =.1# 
3・/* 増分 を 9.1 に する 
4: for ji = 1 to 19 

5・ X =d ネ ポ ji 

5: print xi 

7: next 

6: print 
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・/* 増分 を -1 に する 
19: for jij= 1 to 1 
5 J) = 11 - ji 
を print ji 

13: next 





while 一 Bndwhile 

条件 判断 は 文 の 実行 前 に 行わ れる の で ,。 条件 に よっ て は 1 回 も 文 が 実行 され な い 場 合 が あり ま 
す . 文 と 同様 に 論理 演算 子 を 用 いて 複数 の 条件 を 判断 で きま す . リス ト 3.11 で は 。 アル ファ 
ベッ ト の a か ら z まで 。 次 に z か ら a ま で 表示 し て 終了 し ます 。 表 示す る 文字 コー ド が a よ り 大 
きい (bz) 間 は ルー プ す る と いう し くみ に な っ て いま す 。 


リス ト 紀 .1 ] while-enawhile 


・ Int d = 1 

・ char Alph = "a' 

・ while Alph >= "a』' 

print chr$(Alph): 

if Alph = 2z′then d = -]1 
Alph = Alph+d 

・ endwhile 


と で そ 半 oi 


~J 〇 の) CC1 Rh C で OK ト O ンーー 


「BD ら gt 一 untll 

条件 判断 は , until で 判断 され ます の で 。 少な く と も 1 回 は 文 が 実行 きれ ます . if 文 と 同様 に 論 
理 演算 子 を 用 いて 複数 の 条件 を 判断 で きま す . リス ト 3.12 で は ,。 5 回 ルー プ が あっ た 場合 か 。 あ 
る い は 1 回 で も YES の 答え が あっ た 場合 に ルー プ か ら 抜 ける プロ グラ ム で す . 
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リス ト 紀 .1 己 repeat-until 





・ dim str sports(4) = { "Baseball", "Swimming",」 "Tennis"。 "FootBal17, "Ski 


str Ss 
jnt 」=!,Yes = 
Fepeat 
print "Do you like "isports(i)i:linput "2(Y/N) "is 
if s[9] = Y or s[9】 = y then Yes = ] 
| = 」+ 
until 」 >= 5 or Yes = ] 
ijf Yes = then { 
print "Poor boy!“ 


・ )else { 


phint "You like "isports(i-1D5"1" 





また だ た , この repeat^-until と while--endwhile は 三 い に 書き 換え る こと が で きま す . リス ト 3. 
13 は 。 リ スト 3.12 の プロ グラ ム を while--endwhile で 書い た も の で す 。 


リス ト 紀 .1 コ repeat-until と while 一 ndwhile 


・dim str sports(4) = { "Baseball", "Swimming", "Tennis",」 "FootBal1 "7, "Ski" 


Str S 
Int 」 = ,Yes = 
while j<5 and Yes <> 1 
print "Do you like "isports(ij)iilinput "2(Y/N) "!s 
if sL[9] = “Y or s[9] = y′ then Yes = | 
1 = 」+ 
endwhile 
If Yes = then 5 
print "Poor boy!“" 


・ jelse { 


print "You like "isports(i-1)j "1" 





DraK 

現在 実行 きれ て いる 最も 内 側 の 制御 構造 か ら 抜 け 出 し ます . break が 実行 きれ る と 。 制御 構 造 内 
の break 以降 の 文 は 無視 され , 現在 の 制御 構造 の 次 の 文 か ら 実 行き れ ま す . リス ト 3.14 は 。s* 
i と いう 演算 の 結果 が 1000 を 超え た 時 点 で ルー プ を 抜け ます . 


リス ト 紀 . 1 スイ break の 使用 例 


〇 っ う CC 選 で の TO ルー 


・ nt ji,S = ] 
for i=2to1M 
S =S ネ *j 
if s > 9 then break 
next 
PFIint 1」,S 


2』 
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COTtInU@ 

continue が 実行 きれ る と 。 現在 実行 し て いる ルー プ の continue 以降 の 命令 は 無視 され て 次 回 
の ルー プ が 実行 きれ ます 。 リ スト 3.15 で は , 0 か ら 20 まで の うち ,。 3 で 割っ て 余り の な い Q⑬ の 
倍数 ) 場合 の み , 次 の 行 の print 文 を 実行 せ ず に , i を 十 1 し て 次 回 の ルー プ に は いり ます . 


リス ト 避 . 1 性 continue 使っ た ブロ グラ ム 


 * ま NE 





] 
2: for i = 上 to 2 
8 ijf (ji mod 3) = then continue 
4: Print j 
5: next 
一 その 他 


従来 の BASIC で よく 使わ れ て いた gosub--return。 goto も 用 意 き され て いま す . し か し , 飛び 先 
と し て ラベ ル を 使え な か っ た り , renum で 行 番号 の つけ 替え を を し て も , プロ グラ ム 中 の 飛び 先 の 
行 番号 は つけ 替え て くれ な か っ た り と 。 百害 あ っ て 一 利 な し 。 と いう 仕様 で す . で すか ら , これ 
まで goto 中 毒 に な っ て いる 方 は 。 一 日 も 早く や while な ど を 使っ た プロ グラ ミン グ ス タ イ ル 
に 移行 すべ き で す . 


づ .5. 構造 化 ブ ログ ラミ ング こと 抽象 化 

X-BASIC で は 従来 の 制御 文 に 加え , 繰返し や 選択 な どの プロ グラ ム の 制御 構造 を より 直接 的 
に 表現 する こと が で きる 構造 化 制御 文 が 追加 され て いま す . 構造 化 制御 文 を 用 いる と , 従来 
BASIC で 多用 され て い 友 行 番号 を 駆逐 する こと が で き ,。 また 。, 非常 に 読み や すい プロ グラ ム に す 
る こと が で きま す .。 ここ で は ,。 構造 化 制御 文 を 用 いる 構造 化 プ ログ ラミ ング を 紹介 し ます . 


田 プロ グラ ム の 構造 化 

プロ グラ ム 中 で は , その 目的 に 応じ て 複雑 に 制御 の 受け 渡し が 行わ れ て いま す . 従来 の BASIC 
の プロ グラ ム で は , if と goto を 使っ て 制御 構造 を 作っ て いま す が , その 用 途 を 見 る と 繰返し 構造 
と 選択 構造 を 作る た め に 使わ ん れ て いる の が わか り ま す . 

か ん だ た だ ん な プ ブログ ラム な ら そ の 使用 目的 が わか り ま す が 。 複雑 な プロ グラ ム で は よく 読ま な い 
と , その goto が 繰返し 構造 を 作る た め の も の か ,。 選択 構造 を 作る た め の も の か が 判別 つき ませ 
ん . . そ れ な ら ば , 繰返し 構造 と 選択 構造 を 直接 表現 で きる 構文 を と 用意 すれ ば 。 も っ と 読み や すい 
ゲロ グラ クウ クム に な る らち 考え ら 札 まず す 。 

この よう に プロ グラ ム の 制御 構造 を 直接 表現 で きる 制御 文 の み を 用 いた プロ グラ ム は ,。 構造 化 
され た ブログ ラム と 呼ば れ ま す 。 また 。 その た め の プ ログ ラミ ング 技法 を 構造 化 プ ログ ラミ ング 
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(structured programming) と いい ます . X-BASIC で は 。 while--endwhile。 repeat^-until な ど 
で 繰返し 構造 を if--then--else-- や switch--case--endswitch で 選択 構造 を 表現 する こと が で 
きま すか ら 。 まっ た く goto を 使用 し な いで プロ グラ ム を 書く こと が で きま す . 


田 ブロ グラ ム の 抽象 化 

構造 化 に よっ て プロ グラ ム の 局所 的 な 読み や すさ は 向上 し ます が , 大 き な プ ログ ラム に な る と 
制御 構造 の 入れ 子 が どん どん 深く な っ て 読み に くく な り ま す . そこ で 大 き な プ ログ ラム を いく つ 
か の 部 分 に 分 割 す る こと で 制御 構造 の 単純 化 を は か る こと を 考え ます . プロ グラ ム を 分 割 す る と 
き に は ,。 意味 の ある 処理 単位 で 分 割 し な いと , 分 割 さ れ た 部 分 だ け を 見 て も 理解 で き な い よう に 
な っ て し まい 。 や は り 読 み に く く な り ま す 。 

この よう に プロ グラ ム を 意味 の ある 小 部 分 . すなわち 手続 き に 分 割 す る こと を 手続 き に よる 抽 
象 化 (procedure abstraction) と いい ます . 手続 き 抽 象 を 用 いる と プロ グラ ム で 頻繁 に 用 いら れ 
る 処理 を 手続 き と し て まとめ る こと に より , 記述 の 簡略 化 を は か る こと も で きま す . 人 従 来 の 
BASIC の サブ ルー チン は 後者 の 目的 で 用 いら れる こと が 多い の で す が , 手続 き 抽 象 で は 処理 手 
続き の 共有 化 は あく まで も 副作用 で あり , その 主 目 的 は まさ に 抽象 化 そ の も の に あり ます . 
従来 の BASIC の サブ ルー チン で は 引数 を 明示 的 に 渡す こと が で き な い た め ,。 部 分 的 に 違う 処 
理 を する 手続 き を サブ ルー チン に する に は グロ ー バ ル 変 数 を 用 いて 間接 的 に 引数 を 渡す ほか な 
く 。 その た め 変 数 名 を 間違え る な どの 問題 が お 生じ る こと が あり まし た . また , サブ ルー チン を そ 
の 開始 行 番号 で 表し て いた た め gosub だ け で は どん な 処理 を 呼 員 し て いる の か わか ら な いと い 
う 問 題 点 も あり , 抽象 化 を 行う と か えっ て 読み に くく な る こと も あり まし た . 

X-BASIC で は 関数 を 作り 出す func--endfunc に よっ て 明示 的 に 引数 を 表現 で きる 完全 な 手続 
き の 抽 象 化 を 行う こと が で きま す . また , 関数 呼出 し を 行 番号 で は な く 関 数 名 で 行う こと が で き 
ます か ら 各 関数 に 適切 な 名 前 を つけ る と 呼出 し 側 を 見 る だ け で ある 程度 の 意味 を 読み 取る こと が 
で きま す 。 


田 プロ グラ ム の モジ ュー ル 化 

手続 き 抽 象 は 大 き な プ ログ ラム を 書く 場合 に 有意 な 小 部 分 に 分 割 す る ” と いう トッ プ ダ ウン 
的 な 考え ん か た で す が 。 逆 に “小さい プロ グラ ム を 組み 合わ せ て 大 き な プ ログ ラム を 構成 する " と 
いう よう に ボトム アッ プ 的 に 考え る こと も で きま す 。 うま く 関 数 を 作り 貯め て お く と , それ を 組 
み 合 わせ る だ け で 新しい プロ グラ ム を 構成 する こと が で きま す . 

この よう に 後 で 再 利 用 で きる よう に プロ グラ ム を 作る こと を プロ グラ ム の モジ ュー ル 化 (部 品 
化 ) と いい ます .。 モジ ュー ル 化 を うま く 行 うに は , 関数 を で きる だ け 一 般 的 な 仕様 に する こと と 。, 
グロ ー バ ル 変 数 は で きる だ け 参 照 し な いで 引数 を 使う こと が 重要 な ポイ ント で す . 
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田 真 の 構造 化 プ ログ ラミ ング 

同一 の 処理 を 行う , 従来 の BASIC の 制御 構文 で 書か れん た プロ グラ ム (リス ト 3.16) と , X% 
-BASIC の 構造 化 制 御 構文 を 使っ た プロ グラ ム (リス ト 3.17/) と 比較 し て み ま し ょ う (この サン 
プル プロ グラ ム は 昔 懐か し い ス ネー ク ゲ ー ム で す )、 


リス ト 選 . 1 ビビ 従来 の BAGIO の 制御 構文 で 書い た プロ グラ ム 


1999 int x(255) = { 48, 47, 46, 45, 44 } 

1919 int y(255) = { 12。12,。 12。 12, 12 } 

1929 int d,Ex,Ey,h,i,tail = 4,tmpx, tmpy,xl,y] 

1939 char c = 

1949 randomize(val(right$(time$,2))) 

1959 locate ,,g 

1969 cls 

1979 gosub 1519 

1989 gosub 137g 

1999 gosub 143M 

119M if tail >= 255 then goto 115g 

1119 Cc = aSC(inkey$) 

1129 C = toupper(c) 

113g goSub 1189 

1149 jf d <> -] then goto 11 角 

1159 locate 9,26,1 : beep : print "お し まい " 

1169 end 

1]179 /* Move Snake 

1189 tmpx = x(9) : tmpy = y() 

1199 if c &HIC or c = L then if x() < 83 then tmpx = x(9 + 1 : goto 
1249 else d = -1 : return 

1299 jifc= &HIDorc= H then if x( の > 11 then tmpx = x() - 1 : goto 
1249 else d = -1 : return 

1219 jifc= &HIF orc= 'J then if y( の < 24 then tmpy = y() + 1 : goto 
1249 else d = -1 : return 


1229 jifc= &HIEor c= K' then if y( の > 6 then tmpy = y(⑳) - 1 : goto 
1249 else d = -1 : return 

1239 d = : return 

1249 ji = tail + ] 

1259 if i< 1 then goto 13W 

126g X(i) = x(i-1) 

1279 y(i) = y(i-1) 

128g 1=i-1 


1299 goto 1259 

1399 x(9) = tmpx : y(9) = tmpy 

1319 xl = tmpx : yl = tmpy : gosub 165g 

1329 if h = -1] then d = -] : return 

1339 if tmpx = Ex and tmpy = Ey then locate 9.9 : print "$":(tail-3)*19: : 
tail=tail+] : gosub 1439 else locate x(tail+1),y(tailt1) : print " "| 

1349 gosub 136g 

1359 d = : return 

1369 /* Display Snake 

1379 locate x(9),y(9) : print "*": 

1389 for ij = 1 to tail 

1399 locate x(ji),y(j) : print "@": 

149 next 

1419 return 

1429 /* Display Esa 


1439 Ex = rnd() * 73 + 11 
1449 Ey = rnd() * 18 + 6 
1459 x1 = Ex : x2 = Ey : gosub 1659 


1469 if h = -1 then goto 143g 
1489 locate Ex,Ey : print "#": 
1499 return 





1 24 


1599 /* Write Border 


1519 for i = 5 to 25 

1529 locate 19, 

1539 print "15space$(73)j"1P: 
1549 next 

1559 for ij = ]] to 83 

156g IO96ate ID 1 WW 軸 も "3 
1589 next 

1599 for ji = 11 to 83 

16M locate j,25 : print "-": 
1629 next 

1639 return 

1649 /* ls Hit ? 

I659h=B 

1669 for ji = 1 to tail 

1679 if x] = 

1689 next 

1699 return 


x(i) and yl = y(j) then h = -1 


3.5 X-BASIC の 制御 構造 





リス ト 選 .] ノ 構造 化 制御 文 を 使っ て 書い た プロ グラ ム 


ょ ーー 
ーー っ 


で や で 〇 こぐ ココ の O う CC 届 、 て で の トウ ルー 


いう と ーー レー ーー と ーー レー に ビー レー こと ー 
で や (の =- コ oO つ な C5 う も 5 


Write_Border() 

Disp_Snake() 

・ Disp_Esa() 

・ while tail < 255 

c = asc(inkey$) 

c = toupper(c) 

jf Move_Snake(c) then break 
・ endwhile 

・ locate 26,1 : 
・ end 

・ func Move_Snake(di int) 
Int 1i,tmpx,tmpy 


beep : 


tmpx = x(9) : tmpy = y( の 
21: switch(d) 
ヤ case &HIC 
9 case L : if x(9) < 83 then 
24: break 
の case &HID 
26: case H' : if x( の > 11 then 
直ら break 
28: Case &HlF 
29: case J : if y() < 24 then 
39: break 
91: caSe &HIE ' 
8 case K : if y(9) > 6 then 
3.3 break 
34 : default : return() 
うり < endswitch 
Sb: 1 = tail+] 
ああ while ji >= 1 
38: X(i) = x(i-1 ) 
39: y(i) = y(ji-1) 
4: 1 =jiー】 
41: endwhile 


・ int x(255) = { 48, 47, 46, 45, 44 } 
・ int y(255) = { 12,。 12。 12。 12, 12 } 
Int Ex,Ey,tail = 4 
randomize(val(right$(time$,2)) ) 
char c= 
locate ,,M 
cls 


{DX 


tmDX 


tmpy 


tmDy 


print "お し まい 


X() 


x(9) 


y(9) 


y(9) 


十 


else 


else 


else 


else 


return(-1 ) 


Teturn(-1 ) 


Feturn(-] ) 


Feturn(-1) 
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42: x( り 9) = tmpx : y( の =tmpy 

43: if ls_Hit(tmpx,tmpy) then return(-] ) 
44: if tmpx= Ex and tmpy = Ey then 5? 
45: locate 9 

46: print "$":(tail - 3)*19: 
47: tail = tail + ] 

48: Disp_Esa() 

49: ) else { 

59: locate x(tail+1),y(tail+1) 
9 PTint ” 

02 


53: Disp_Snake() 
54・ return() 

S5: endfunc 

56: func Disp_Snake() 


57: int ji 

58: locate x(,y(9) : print "*": 

59: for ji = 1 to tail 

6: locate x(j),y(j) : print "@": 
61: nhext 


62: endfunc 
63: func Disp_Esa() 


64: Int j 

55 while 1 

66: Ex = rnd() * 73 + 11 

67: Ey =rnd() * 18 + 6 

68: fnot Is_Hit(Ex,Ey) then break 
69: endwhile 

79: locate Ex,Ey : print "#。 

71: endfunc 

72: func Write_Border() 

73・ Int j 

74: for = 5 to 25 

75: locate 19, 

76: print "ispace$(73)j"1P! 
1 next 

78: for 」 = 1 to 83 

79: locate 1i,5 

89: PIN "で 

81: hext 

82: for | = 11 to 83 

83: locate ji,25 

84: pFint "- ツ ! 

85: next 

86: endfunc 

87: func int Is_Hit(xliint,y1iint) 
88: Int 「 

89: for 」 = 1 to tajil 

9: if xl = x(i) and y] = y(i) then return(-1) 
91: next 

92: return(9) 

93: endfunc 





従来 の 構文 で は サブ ルー チン が 何 を する も の か 呼出 し 側 (gosub 行 番号 ) で は まっ た く 見 当 も 
つき ませ ん . また サブ ルー チン が 実際 は 関数 ( 値 を 返す 手続 き ) で ある 場合 で も , その 値 を グロ ー 
バル 変数 を 使っ て 返し て いる た め 。 単なる 手続 き で ある サブ ルー チン と 区 別 が つき ませ ん . 

if と goto で 選択 構造 と 繰返し 構造 を 表し て いま すす が, イン デン ト の 助け を 僅 り な けれ ば それ が 
選択 構造 で ある か 繰返し 構造 か ら の 脱出 を 表わし て いる の か わか り ま せん . 多 方 向 分 岐 を 表す 構 
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文 (switch--case--endswitch) が な いた め if--then->goto の 列 に な り 非 常に 読み に くく な っ て 
いま す . 

それ に 比べ る と 構造 化 制御 文 を 用 いた プロ グラ ム は ,。 注釈 が な く て も 関数 の 名 前 で その 処理 内 
容 が 判り ます し , 関数 と 手続 き の 区 別 も は っ きり し て いま す . 多 方 向 分 岐 を 適切 に 使う こと で 複 
数 の 選択 を まとめ て ある た め , ぐっ と 読み や すく な っ て いる の が わか る で し ょ う . 

ここ で 注意 し な けれ ば な ら な い の は , 構造 化 制御 構文 を 使え を ば か な ら ず プロ グラ ム の 構造 化 が 
で きる わけ で は な いと いう こと で す . 構造 化 制御 構文 は プログ ラム を 読み や すく する た め の 手 有 段 
で し か な く 。 ゲロ グラ ム が が み や ずい か どう か 付 。 ブロ グラ テマ の ヨコ ヨー デ ィ シグ デ グ クニ ッ ダ の 藤 理 
に か か っ て いま す . 下手 に 構造 化 制御 構文 を 多用 し た プロ グラ ム よ り も 的 確 に goto を 使っ た プ 
ログ ラム の ほう が 読み や すい こと も 多々 あり ます . 

関数 も 同様 で .。 う まく 抽 象 化 を 行わ な いと 処理 が 分 散 さ ん れる だ け に 非常 に 読み に くい プロ グラ 
ム に な り ま す . モジ ュー ル 化 を 考え すぎ て あま り に も 一 般 的 に 書か れ た 関数 は 読み に くい だ け で 
な く 使 い に く いも の で す . 

この へ ん の 兼ね 合い は プロ グラ ミン グ の 経験 を 積み 重ね る こと で 修得 し て いく ほか あり ませ 
ん 。 他人 の 書い た プロ グラ ム を 読む こと も よい 経験 と な り ま す . その と き は , プロ グラ ム の 表面 
だ け で は な く , プロ グラ マ が 何 を 考え て コー ディ ング し た か を 読み 取る 訓練 も 重要 で す . 


一 X- 選 AIC の 関数 定義 こと 呼 出し 

X-BASIC の 関数 は , BASIC.X に 組み 込ま れ て いる 標準 関数 , 拡張 子 ^.FNC" の ファ イル に 収 
め ら れ て いる 外部 関数 。 そし て プロ グラ ム 中 で 定義 むす る ユー ザー 定義 関数 の 3 種類 に 分 けら れ ま 
す . 従来 の BASIC で も , DEF FN の よう な ユー ザー 定義 関数 が あり まし た が , 演算 だ け に 限ら 
れ て いま し た 。 X-BASIC で は サブ ルー チン に 相当 する 単位 を 関数 と 呼び ます . 

ュー ザー 定義 関数 は リス ト 3.18 の よう に 。func--endfunc を 使っ て 定義 し ます . func と end- 
func の 間 に あ る ステ ー ト メン ト や 関数 な ど が , ユー ザー 定義 関数 の 処理 の 定義 内 容 に な り ま す . 
この と き 。, 引数 や 戻り 値 の 型 も 同時 に 宣言 し ます . 引数 や 戻り 値 の 型 が 指定 され な いと き は , す 
べ て int 型 と みな され ます . 


リス ト 避 .1 日 関数 定義 の 例 


1: func jnt jsodigit(chichar) 

2 if ch >= "9 and ch <= "7′ then 【 
3 return(-1 ) 

4: ) else { 

5: return(9) 

5 
0 


endfunc 


EE 
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また , 処理 の 結果 を 返す 場合 は , 
return (戻り 値 ) 


の よう に し て 返す こと が で きま す . gosub-creturn の 形態 の サブ ルー チン の 処理 結果 が 必要 な 場 
合 , メ イン ルー チン と サブ ルー チン の 間 に 引 数 や 戻り 値 を や り と りす る た だ ため の 変数 を 用 意 す る 必 
要 が あり まし た が , ユー ザー 定義 関数 を 使え ば, その よう な 必要 は な く な り ま す . 

定義 きれ た 関数 は , 標準 関数 な ど と 同等 に 扱わ れ ま すか ら , 関数 の 名 前 に 続け て , その 関数 に 
渡す 値 (引数 ) を 書く だ け で OK で す . も ちろ ん 。 関数 の 戻り 値 を 演算 な ど に 用 いる 場合 も , 式 
の な か で 関数 を 呼ぶ こと が で きま す . 関数 の 定義 は 次 の よう な 行 で 始 り ます . 


func function (p1 : int, p2 : str) 


この と き ,。 引数 の 型 を ^:? (セミ コロ ン ) に 続け て 書い て 宣言 し ます . 型 を 指定 し な い 場 合 は 
int 型 と みな され ます . 関数 の 側 で は , 関数 定義 の と き に 引数 と し て 指定 され た 変数 名 を その まま 
使っ て , 外部 か ら 渡 され た 値 を 使用 する こと が で きま す . 

また 。 関数 が 内 部 か ら 自 分 自身 を 呼び 出す こと (再帰 呼 由 し ) も 可能 で す (リス ト 3.19). 自分 
自身 を 呼ば れ て も , 呼び 出し た 関数 と は まっ た く 別 の も の と し て 扱わ れ ま すか ら , ロー カル 人 変数 
の 値 は 保護 され て いま す . 


リス ト 紀 .1 関数 の 再帰 呼出 し 


:/* 1 か ら n の 合計 


] 

2: jnt ij,anSWer 

S: while 1 

4: repeat 

5・ input "数 を 入力 し て くだ さい (1 て )",」 

6: until ((i > の and (ji * 162 < free)) 

7: answer = sum(i) 

8: 。 print "1 か ら "jj) まで の 合計 は "janswer:" で す 。" 
9: endwhile 

19: end 


11: func int sum(iiint) 

12: if ji = 1 then return(1) 
13: return(irsum(i-1)) 

14: endfunc 


関数 を 呼び 出す と , 結果 を 表す 値 を 返し て きま す . これ を 戻り 値 と いい ます . 戻り 値 の 型 は 関 
数 の 宣言 時 に 指定 し ます . 戻り 値 は 関数 を その も の が 持っ て いま すか ら , 


n 三 function (2) 


の よう に 書く こと で 。 関数 function の 戻り 値 を 変数 n で 受け 取る こと が で きま す . 
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3.6 標準 関数 


また 。 標準 関数 や 外部 関数 で は 。 引 数 に し て いる 変数 に 値 を 返す も の も あり ます . た と えば ぱ ば, 
ファ イル 入出 力 関数 の fread 関数 は 。 


fread (na, In, fp) : 


と し た 場合 。 配列 na に ファ イル か ら 読 み 込 ん だ デー タ を 格納 し ます . 


3. 標準 関 数 


この 節 で は , XX-BASIC 本 体 に 組み 込ま れ て いる 標準 関数 に つい て , そ の アウ トラ イン を 解説 す 
る に 候 し まし よう 。 





づ .B.1 数 値 演算 関 数 
四則 演算 以外 の 演算 を 行う 関数 で , 累乗 関数 や 三角 関数 , 対数 関数 , 乱数 発生 関数 な ど が あり 


ます ( 表 3.11)。 





n の アー クタ ンジ ェ ン ト を 計算 する (戻り 値 の 値 域 は ー ァ /2ー ァ /2) 
n( ラ ジア ン ) の 余弦 (コサイン ) を 計算 する 

自然 対数 の 底 *e" の n 乗 を 計算 する 

n の 自然 対数 を 返す . n>0 で な けれ ば な ら な い 


「 「 「 円 周 率 を 返す . 実際 に は (z ァ xn) を 計算 し て 返す . n を 省略 する と 


n1 の n2 乗 の 計算 を する . n1=0 か つ n2<0 の 場合 と , n1 く 0 か つ 
n2 が 整数 で な い 場 合 は , エラ ー と な る 
randomize(i) | int 型 rnd() の 乱数 系 列 を 初期 化す る (一 32768 ミ i ミ 32767) 


型 
1 
n の 符号 を 調べ る . 正 の 場合 は 1, 0 の 場合 は 0, 負 の 場合 は ー1 を 
返す 
float 型 | n( ラ ジ ァ ン ) の 正弦 (サイ ン ) を 計算 する 
n の 平方 根 ( ル ー ト ) を 返す (n=0) 
srand(i) int 型 ーー rand() の 系 列 を 初期 化す る (0 ミ i ミ 65535) 


float 穫 n( ラ ジア ン ) の 正 挨 ( タ ンジ ェ ント ) を 計算 する 



















































表 .] 1 数 値 演算 関数 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 


づ .6. ど デー タ 変 換 関 数 
デー タ 変 換 関数 は 。 数 値 と 文字 列 と の 相互 変換 や 文字 変換 。 数 値 変換 な どの た め の 関数 で す ( 表 
3.12). 


戻り 値 の 意味 
float 型 の 数 値 を 表す 文字 列 st を float 型 の 数 値 に 変換 
oe ee 還 還 昌 胃 


int 弄 int 型 の 数 値 を 表す 文字 列 st を int 型 の 数 値 の 変換 する | ”。 | 
も [ n の 整数 値 を 2 進数 に 変換 し て 文字 列 で 返す . 上 位 の 


| 返す 
float 型 (⑪, 浮動 小数 値 『 を ii 桁 の 文字 列 に 変換 する . i2 に は 小数 | 
int 型 (1), 点 の 位置 が , i3 に は 符号 を 表す 数 値 ( 正 な ら ば 0, 負 な 
int 型 変数 (j2) ら ば 1 が ) 返さ れる 
int 型 変 数 (i3) 文字 列 と し て 返る の は 数 値 の み に な る 
float 型 (⑪, 浮動 小数 値 f を 小数 点 以下 i1 桁 の 文字 列 に 変換 する .i2 
int 型 (i1), に は 小数 点 の 位置 が 。 i3 に は 符号 を 表す 数 値 ( 正 な ら 
int 型 変 数 (i2) ば 0, 負 な ら ば 1) が 返さ れる . 文字 列 と し て 返る の は 
int 型 変数 (i3) 


数 値 の み に な る 


浮動 小数 値 『 の 値 の 小数 点 以 下 を 切り 捨て た 整数 部 の 


値 を 返す 
ーー 


浮動 小数 値 f を 文字 の 文字 列 に 変換 し て その 文字 列 を 
Str 型 







































ecvt(f, i1, i2, i3) 











fcvt(f, i1, i2, 13) 










float 型 (⑪., 
int 型 (⑪) 










整数 値 n を 16 進数 の 文字 列 に 変換 する . な お , 上 位 の 
^0” は 取り 除 か れる 





返す 
通常 は ij 桁 の 実数 表現 に 変換 する が , それ が で き な い と 
き は 指数 表現 に 変換 する 
鐘 | 人 を 区 字 久 に 肝要 し 。 そ の 区 列 を 直 す | 
int 型 str 型 登 数 値 n を 8 進数 の 文字 列 に 変換 する . な お , 上 位 の 
0” は 取り 除 か れる 
swe( sw トー ニー ニー] 
本 
So 文字 ch が 英 小文字 Ca”" て “z 


* 記 ae J,・ こ 
| ーー 「 st の 文字 列 を 浮動 小数 値 に 変換 し て 返す . 
val(st) Str 人 float 便 *&H7。 いい &O*。 8&B” の 形式 の 数 値 も 変換 で きる 





浮動 小数 値 n を 文字 列 に 変換 し て 返す 
文字 ch が 非 ASCII 文字 で あれ ば ASCII 文字 (&hO00 て 
&h7F) に 変換 し て 返す 
文字 ch が 英 大 文字 (A” て"Z7) で あれ ば 英 小文字 ("ga" 
^^Z”) に 変換 し て 返す 








int 型 














int 型 









) で あれ ば 英 大 文字 CA 











表 .1 己 デー タ 変 換 関 数 
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3.6 標準 関数 


づ .B. 文字 列 処 理 関数 


文字 列 の 変換 や 文字 列 中 の 特定 の 文字 を 検索 する な ど 。 文字 列 を 操作 する た め の 関 数 で す ( 表 
3.13) ほとん どの も の は 。 従来 の BASIC に あっ た も の と 同じ で す が 。 若干 動 作 が 違う も の や X 
-BASIC 独自 の も の も あり ます の で の で 。 それ ら の 関数 に つい て 説明 し ます . 


応 り 仁 の 素人 


























int 型 3 ーー Si 見 つか ら な い 場 合 i が 0 か 人 負 
半 き に | ン ョ | と 
nstr(i st st2) | mt 型 0,。 | sr 型 (GO てき 2a。 | の 場合 は sH を ,st2 が nul 文 
Str 型 (St2) g 字 の 場合 は 0 を 返す 












文字 ch が 英 数 字 ('a? っ ン *z* *A^ の プペ *0* ^ バ 9? ) 


= 英 数 字 の 場合 は -1.。 そう で な 
| きま 
和 eK64 Car 拉 で ある か どう か を 調べ る い 場 合 は 0 を 返す 
文字 ch が 英字 Ca” て "2 AP て "2 7) で ある か どう | 英字 の 場合 は ー1, そう で な い 
1 井 ! まき 
isalpha(ch) char 型 int 型 か を 調べ る 場合 は 0 を 返す 
5 5 . 文字 ch が ASCII 文字 (&h00C&h7F) で ある か どう か を | ASCII 文字 の 場合 は ーー1, そう 
井 ! | * 
isSascii( ch ) char 型 int 型 調べ る で な い 場 合 は 0 を 返す 
9 コン トロ ー ル 文字 の 場合 は 
8 文字 ch が コン トロ ー ル 文字 (&hO00- て &h1F, &h7F) で あ 5 と 
i | 井 ! _- * ea > いい 揚 会 
scntrl(ch) char 型 int 型 る か どう か を 調べ る Pi そう で な い 場 合 は 0 を 返 
きま * きま ロ テー ュ Ka ーー WW な W か ai 数 字 の 場合 は ー1 eo う ikS 
井 ! 井 ! バ ンー + ヽ ヽ N 9 
isdigit( ch) char 型 int 型 文字 ch が 数 字 CO 9") で ある か どう か を 調べ る 場合 は 0 を 返す 
ト っ KT スベ ペー ス 以 外 の 表示 可能 な 文 
ea 文字 ch が スペ ー ス 以外 の 表示 可能 な 文字 (&h21 て 8 4 乏 の 0pi s 
isgraph(ch) char 型 int 型 &h7E) か どう か を 調べ る の 場合 は 1。 そう で な い 場 
合 は 0 を 返す 
1 e I 三 ー 『。 コア さ ムタ いい 。 AP ヽ 詩 ム 英 小 文字 の 場合 は 2 に g う "ば 
islower( ch) char 型 int 型 文字 ch が 英 小文字 Ca′” て \z7) で ある か どう か 調べ る な い 場 合 は 0 を 汽 す 
隊 誠 靖 文字 ch が 表示 可能 な 文字 (&h20-C&h7E) で ある か どう | 表示 可能 な 文字 の 場合 は 1 
iSprint(ch har 型 と * も K 


文字 ch が 表示 可能 な 記号 文字 (&h20 て &h2F, &h3A | 。- si 
isSpunct( ch) int 型 表示 可能 な 記号 文字 の 場合 は 



















<&h40, &h5B て &h60, &h7B て &h7E) で ある か どう か 5 
昌 SB&h60 も 


、 文字 ch が 空白 文字 (&h09 て &hOD, &h20) で ある か どう | 空白 文字 の 場合 は ー1, そう で 
1 井 ! リロ 

isspace(ch) char 型 int 型 か 調べ る な い 場 合 は 0 を 返す 

1 ee < 英 大 文字 の 場合 は 1. そう で 
| 井 \ ヘン * に 1】 二 

isupper(ch) char 型 int 型 文字 ch が 英 大 文字 (A 2Z”) で ある か どう か 調べ る な い 場 合 は 0 を 返す 

isxdigit(ch) char 弄 int 弄 文字 ch が 16 進 の 文字 CO0” て 97, "ん A” |16 進 の 文字 の 場合 は 1, そう 


^ バ F?) で ある か どう か を 調べ る で な い 場 合 は 0 を 返す 


str 型 (St) , ーー ME ck i が 0 また は 負 の 場合 は null 文 
left$(st, i) str 型 文字 列 st の 左端 か ら i 文 字 の 文字 列 を 取り 出す 字 を 返す 


str 型 (st), 9 ao ii2 が 0 ある い は 負 の 場合 
文字 列 st の ii 文字 目 以降 か ら i2 文字 の 文字 列 を 取り また は 1 が 文字 列 st の 長 さ を 













 - Aa 2 : 





Str 型 


mid$(st i, i2) int 型 (i1), 
int 型 (ij2) 





出す 超え て る 場合 nul 文字 を 返す 


昌 』 プ バ ヽ どー r 
right$(st i) ey 文字 列 st の 右端 か ら 文字 の 文字 列 を 取り 出す io 


| 文字 の 空白 (&h20) か ら な る 文字 列 を 作る SE の 場合 は null 文字 


Str 型 (St), Se ana 


strcspn( st1, st2 ) str 型 int 型 





文字 列 st の な か で 最初 に 文字 ch を 見 つけ た 位置 を 返 
す . 位置 は 文字 列 st の 先頭 が 0 に な る 





見 つか ら な い 場 合 は 一 1 を 返す 





と _ | 見 つか ら な い 場 合 と st2 が null 
r ュ に っ チャ カイ < 
文字 列 st2 の どれ か 1 文字 を 文字 列 sf の な か で 最初 に 文字 の 場合 は stl の 長 さ を . st 


見 つけ た 位置 を 返す . 位置 は 文字 列 の 先頭 が 0 に な る | Ti 文字 の 場合 は 0 を 返す 


1 中 j j」 が か バ ヽ と こさ に っ | 
wmeseso | 半 昌 st 型 文字 列 st の 先頭 1 文字 か ら な る 文字 の 文字 列 を 作る | ので クー の 生 aT ス す さ 


strlen(st) , len(st) int 型 文字 列 st の 長 さ を 返す null 文字 の 場合 は 0 を 返す 
刻 | 字 和 燥 の な か の 天天 字 を 区 に 折る | 





Mi 
と て 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 


| 書式) | 引 数 | 戻り 値 |  。 携 。  。 能 。 | 戻り 値 の 意味 


Str 型 変数 (St), az sq ia 
文字 列 st の 先頭 か ら 1 文字 分 を 文字 ch に 変換 する .i が 
玉 ! ( 更 ! 
人 wi Wi 0 か 負 の 場合 は st の 内 容 は 変わ ら な い 
Sr 型 (81), 和 


strrev( st) str 型 変数 


Str で 和 
文字 列 st2 に 含ま れる 文字 (どれ か | つ ) を 文字 列 st1 か 


Sh 半 交 |m mw 生 | は 全 還 は 全 還 ら 探し , 先頭 か ら そ の 位置 まで の 文字 列 を 返す 


区 地 を す べ て 大 区 に 殴る 


表 コ .1 文字 列 処理 関数 

























文字 列 St の な か で 文字 ch が 最後 に 見 つか っ た 位置 を 返 
す . 位置 は 文字 列 の 先頭 が 0 に な る 


文字 列 st の 並び を 反転 する 






見 つか ら な い 場 合 は 1 を 返す 


Te 
ま コ 
ロ 



















文字 列 st の 文字 を , すべ て 文字 ch に セッ ト す る 











見 つか ら な い 場 合 は st1 の 長 さ 
を , st1, また は st2 が null 文 
字 の 場合 は 0 を 返す 


st2 に 含ま れる 文字 が 見 つか ら 
な く な る と null 文字 を 返す 







文字 列 St2 に 属さ な い 文 字 を, 文字 列 st1 で 最初 に 見 つ 
けた 位置 を 返す . 位置 は 文字 列 st1 の 先頭 が 0 と な る 






















関数 名 が ~^is” で 始ま る 関数 は , 文字 の 種類 を 調べ る た め の も の で す . これ ら の 関数 は , 調べ る 
文字 種 も それ ぞ れ 決ま っ て いま すか ら , 関 数 名 を 見 れ ば どう いう 文字 種 を 調べ る か が わか り ま す . 

strchr 関数 と strrchr 関数 は 文字 の 検索 を 行う た め の 関 数 で , 文字 列 の な か で 指定 され た 文字 
を 最初 に 見 つけ た 位置 を 返し ます . 見 つか ら な か っ た 場合 は ー1 を 返し ます . strchr が 文字 列 の 先 
頭 か ら 検 索 す る の に 対し て , strrchr は 文字 列 の 最後 か ら 検 索 し ます . 位置 は 文字 列 の 先頭 を 0 と 
し , 何 番目 に ある か を 返し ます . 

リス ト 3.20 で は 。“X68000 Enioy X68000”" と いう 文字 列 の 先頭 と 未 尾 か ら “^X” と いう 文字 
を 探し て いま す . 


リス ト 紀 .P strchr 関数 と strrchr 関数 


Str る 

int j 

s = ”X68M9 Enjoy X68MM" 
ij = strchr(s,'X”) 

print j 

ij = strrchr(s,'X”) 

Print j 


^-J OO っ mcC こ (OO 一 





strcspn 関数 と strspn 関数 は 2 つの 文字 列 を 比較 する 関数 で す . strcspn 関数 は 2 つの 文字 列 
の な か に 共通 の 文字 を 最初 に 見 つけ た 位置 を 返し ます . 逆 に strspn 関数 は 2 つの 文字 列 の 違い を 
見 つけ 。 その 信 置 を 返し ます (リス ト 3.21)、. 


リス ト どど ] strcspn 関数 と strspn 関数 





StF 8l.s2 
sl = “BASGASUBAKUHATSU" 
s2 = “CDEFG" 


print strcspn(s1l,s2) 

sl = Tokyo Tokkyo kyokakyoku" 
S2 = Tokyo 

print strspn(s1l,s2) 


_J の っ Cm 選 COPO 一 





3.6 標準 関数 


strtok 関数 は 文字 列 st2 に 含ま れる 文字 (どれ か 1 つ ) を 文字 列 stt か ら 探 し , 先頭 か ら そ の 位 
置 ま で の 文字 列 を 返し ます . この 関数 の 使い か た は , 他 の 関数 に 比べ て 少々 特殊 で , 1 つの 文字 列 
を 調べ る の に 少な く と も 2 回 は 実行 する 必要 が あり ます . 

1 回 目 は , st1 に 調べ られ る 文字 列 。st2 に 調べ る 文字 列 を 入れ て 実行 し ます . その 結果 , 1 つ 目 
の 文字 列 が 返り ます . stl の 先頭 に st2 に 含ま れる 文字 が あっ た と し て も 無視 され ます . 2 回 目 以 
降 は ,st1 を null 文字 に し て 実行 し ます . 1 回 実行 する ご と に 2 つ 目 , 3 つ 目 。… と 見 つけ て いき 
ます . 見 つか ら な く な る と null 文字 を 返し ます . 

この 関数 は 文字 列 の な か か ら ス ペー ス や カン マ で 区 切ら れ た 単語 を 取り 出す と いっ た 検索 に 使 
用 で き ぶ ます 。 

リス ト 3.22 は 。 文字 列 Hi, my name is X68000.′ と いう 文字 列 か ら 。 ~。” と て そし て ス 
ペー ス を セパ レー タ と し て 単語 を 切り 出し て いま す .。 


リス ト 紀 . ど 己 strtok 関数 


str stl,st2,tmp,NULL=" 
st]l = "Hi, my name js X68!.“ 
きも モー /* Separator 
tmp = strtok(stl,st2) 
・ while tmp <> NULL 
print tmp 
tmp = strtok(NULL, st2) 
endwhile 
・ PTInt st]1 
end 


や (の =- コ の つの で な < 一 


ェ ーー 


strset 関数 と strnset 関数 は 指定 され た 文字 で 文字 列 を 埋め ます . strset 関数 は 文字 列 の 文字 す 
べ て を 指定 され た 文字 で 埋め ます . strnset 関数 は 文字 列 の 先頭 か ら 指 定 さ れ た 文字 数 だ け 埋 め ま 
す . 16 進数 を 表示 する 場合 。 hex$ 関 数 だ け で は 数 値 が 小さ いと 8 桁 表 が を し た く て も 2 か ら 3 桁 
し か 表示 され な いこ と が 多い も の で す . そこ で strset 関数 を 使っ て ,。 表 示さ れ て いな い 上 位 の 桁 
を 0 で 埋め る こと が で きま す (リス ト 3.23). 


リス ト . ど strset 関数 と strnset 関数 


StF 81。.82 

: sl = space$(5) 

・ s2 = "Watashi ha X68 史 9.“" 
・ strset(s1. 'W'):print slrs2 
・ strnset(s2,'W',8):print s2 


Cn Rh て で うう て TO の ッ ー 





strlwr 関数 と strupr 関数 は 文字 列 中 の 英字 を 変換 し ます . strlwr 関数 は 文字 列 中 の 英 大 文字 を 
英 小文字 に 変換 し ます . strupr 関数 は 文字 列 中 の 英 小 文字 を すべ て 英 大 文字 に 変換 し ます . Hnput 
文 な ど で フ ァイル ネー ム を 入力 し て 大 文字 小文字 びそ ろ っ て いな いと き に これ ら の 関数 を 有効 
に 使う こと が で きま す (リス ト 3.24)。. 
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リス ト 3. ど 2 striwr 関数 と strupr 関数 


1: str sl 

2: sl= “OOMOJI To Komoji" 
3: print strlwr(s1) 

4: print strupr(s]1 ) 





う 3.5.4 ファ イル 入出 力 
まず ,。 表 3.14 に ファ イル 入出 力 関数 の 一 覧 を 示し ます . ちょ っ と 見 た だ け で も 。 これ まで の 
BASIC と は 趣 を 上 異 に し て いる と と に 気がつく で し ょ う . 


| 書式 | 3 引 数 | 戻り 値 | 機  。 能 。 | 戻り 値 の 意味 


指定 され た ドラ イブ の 空き ディ スク 容量 を 返す 
dskf(i) char 型 


(=0: カレ ント ドラ イブ , 1 : A ドライブ, 2:B ド ラ | エラ ー の 場合 は 1 を 返す 
feewee lm 天 


イプ 。) 
クロ ー ス され た ファ イル 数 を 
fcloseall( ) int 型 オー プン され て いる ファ イル を すべ て クロ ー ズ する 返す . エ ラー の 場合 は 一 1 を 返 
す 
補 す 0 テー 


紅 【 合 ー ま 。 終 
feof(fp) int 弄 ファ イル 番号 fp の ファ イル が 終了 し て いる か どう か チ 終わ り の 場合 は 一 1. 終わ っ て 
こ ご に 


es いな い 場 合 は 0,. エ ラー の 場合 
ーー 


は 一 1 を 返す 
読み 込ん だ 文字 の キャ ラク タ 
str 型 (fn), 
fopen(fn, md) 0 MM 
fputc( ch, fp) char 型 (ch), 


コー ド を 返す . ファ イル の 最 
int 型 (fp) 
fread(na, n, fp) 











fopen に よっ て オー プン され た ファ イル 番号 fp の ファ | 成功 し た 場合 は 0,. エラ ー の 場 
イル を クロ ー ズ する 合 は 1 を 返す 

































ファ イル 番号 fp の ファ イル か ら 1 文 字 ず つ 読 み 込む . 
ファ イル 内 の デー タ ポ イン タ の 位置 は ,1 バイ ト ず つ 移 
動 す る 










後 ま で 読み 込ん だ 場合 や . エ 
ラー が 起こ っ た 場合 は ー1 を 返 
四 















ファ イル 名 fn の ファ イル を 指定 され た モー ド md で オ 
ー ブ プン する 
オー プン され た 直後 の ファ イル 内 の デー タ ポ イン タ の 


位置 は ファ イル の 先頭 に な る 


ァイル 番号 fD の ファ イル に キャ ラク タコ ー ド ch の 文 
Bi ファ イル 内 の デー タ ポ イン タ の 位置 は , 
1 バイ ト ず つ 移 動 す る 


ァイル 番号 fp の ファ イル か ら n 個 分 を 配列 na に 読 
時 タ ポ イン タ の 位置 は 指定 され た 配列 の 型 
に 応じ て 移動 する 


ァイル 番号 fp の ファ イル か ら 1 行 を 文字 列 変数 st に 
> 

改行 が 現れ る か , 文字 変数 の バッ ファ が いっ ぱい に な 
っ た と き 読 み 込 み を 終了 する . バッ ファ に は 改行 お よ 
び 終 了 コ ー ド は 書き 込ま れ な い 










ファ イル 番号 を 返す . エラ ー 
の 場合 は 1 を 返す 















書き 込ん だ キャ ラク タ の コー 
ド . 書き 込め な か っ た 場合 と 
エラ ー の 場合 は 1 を 返す 










































実際 に 読み 込ん だ 要素 数 を 返 
す . エ ラー の 場合 は 1 を 返す 


配列 名 (na), 
int 型 (n, fp) 






int 型 














= か aP で ター 文字 数 を 返す . 

ァイル の 最後 まで 読み 込ん 
生 すでに 読み 込ん で いる 
場合 .。 エラ ー が 起こ っ た 場合 
ま ー1 を 返す 


変更 で きた 場合 は 0. エラ ー の 
場合 は 1 











sf 型 変 数 (st), 


freads( st, fp) 1 型 (人 ) 
















ファ イル 名 を fn1 か ら fn2 に 変更 する 
























ァイル 番号 fp の ファ イル を シー クモ ー ド md て 指定 
ーー 位置 か ら バ イト 単位 で オフ セッ ト ofst 分 だ け デ 
ー タ ポイ ンタ を 移動 する 

シー クモ ー ド md は 0 で ファ イル の 先頭 , 1 で 現在 の 位 
苫 , 2 で ファ イル の 終わ り を 表す 


ァイル 番号 fp の ファ イル に n 個 分 を 配列 na に 書き 
か デー タ ボ イン タ の 位置 は 指定 され た 配列 の 型 に 
応じ て 移動 する 


int 型 (n, fp) 
ファ イル 番号 fp の ファ イル に 文字 列 型 変数 st を 書き 込 


- Str 型 (st) , 5 


表 コ .14 ス ファ イル 入出 力 関数 











int 型 (fp), 
fseek(fp, ofst。 md) | int 型 (ofst , 
int 型 (md) 


新しい デー タ ボ イン タ の 位置 
を 返す . エラ ー の 場合 は 一 1 を 
返す 


















配列 名 (na)), 書き 込ん だ 要素 数 を 返す . エ 


ラー の 場合 は 1 を 返す 


書き 込ん だ 文字 数 を 返す . エ 
ラー の 場合 は 1 を 返す 





fwrite(na, n, fp) 
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3.6 標準 関数 


X-BASIC は , Human68k の 上 で 動作 し て いま すか ら , や は り デ バイ ス は 特殊 な ファ イル と み 
な すこ と が で きま す .。 で すか ら , シス テム で 予約 され て いる デバ イス 名 と 同じ 名 前 の ファ イル を 
作る こと は で きま せん . また , ファ イル 名 は 18 文字 まで 指定 可能 で す が , 8 文字 まで し か 識別 き 
れ ま せん 、 

それ で は 。 ファ イル の 入出 力 を 行う か ん た ん な プロ グラ ム を リス ト 3.25 に 示し ます . これ を 見 
な が ら 。 順 を 追っ て その 手順 を 解 語 す る こと に し まし ょ う . 


リス ト 紀 . 巳 ファ イル 入出 力 の 例 


1? る gl 

2: char ch 

S。 jnt fp, 1 

4: fp = fopen("file1","r") 
5: for ji=9 to 15 

6: ch = fgetc(fp) 

7 sl = sl+rchr$(ch ) 

6: next 

9: pFInt sl] 

19: end 





まず 。 フ ァイル を オー プン する こと か ら 始 め ま す . fopen 関数 で ファ イル を オー プン する た め に 
は 。 使 用 する ファ イル の 名 前 と 。 読み 書き の モー ド (アク セス モー ド ) を 指定 し ます 。 アク セス 
モー ド に は 。 次 の 4 つが あり ます . 


WP … すでに 存在 し て いる ファ イル を 書込み 朋 と し て オー プン する . フ ァイル が な い 場 合 
は エフ ラー に な る 
2w” … すでに 存在 し て いる ファ イル を 読込 み 朋 と し て オー プン する . フ ァイル が な い 場 合 


は プー に な る 

wr' … すでに 存在 し て いる ファ イル を 読み 書き 両用 と し て オー プン する . フ ァイル が な い 
場合 は エラ ー に な る 

Pe7 新しい ファ イル を 読み 書き 両用 と し て し て オー プン する . す で に その ファ イル が 存 
寿し て いる 場合 は 。 そ の ファ イル を 消去 し て か ら , 新しく オー ブ ジ する 。 


ファ イル の オー プン に 成功 する と, fopen 関数 は 戻り 値 と し て オー プン し た ファ イル に 割り 当 
て た ファ イル 番号 (int 型 ) を 返し ます . ファ イル の アク セス は , それ が クロ ー ズ され る まで , こ 
こ で 得 た ファ イル 番号 を ファ イル 名 の 代わ り に 使い ます . 

次 に 。 デー タ を 読み 書き する わけ で す が , 入出 力 関数 ご と に 扱え る デー タ の 型 に 制限 が つい て 
いま す . fgetc 関数 と fputc 関数 で は char 型 変数 。 fread 関数 と fwrite 関数 で は 数 値 型 配列 変数 , 
freads 関数 と fwrites 関数 で は str 型 変数 で す . 

き て 。X-BASIC で 決定 的 に 異な る の が , フ ァイル アク セス の 方 法 で し ょ う . これ まで の BASIC 
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で は ,。 シー ケン シャ ル ア ク セス と ,。 ラン ダム アク セス の 区 別 が あり まし た が 。 又 -BASIC で は 。 基 
本 的 に シー ケン シャ ル ア ク セス し か で きま せん . も し , ラン ダム アク セス を 行い た い 場 合 は 。 デー 
タ ポ イン タタ と いう 概念 を 使い ます . デー タ ポ イン タ は ,。 ファ イル の 先頭 か ら 何 バイ ト 目 の デー タ 
を アク セス の 対象 と する か を 示す も の で , fseek 関数 で この ポイ ンタ の 位置 を 移動 きせ ます . 

デー タ ポ イン タ を 動か す と き の 基 準 と な る 位置 (セー クモ ー ド : 0。1, 2) と , 基準 位置 か ら 何 
バイ ト 目 か を 表す 値 (オフ セッ ト :int 型 ) を fseek 関数 に 渡し ます . シー クモ ー ド に は 。 次 の 3 
種類 が あり ます . 


0 … ファ イル の 先頭 
1 … 現在 の 位置 
2 … ファ イル の 終端 


あと は , 入出 力 を 行う た びに 自動 的 に デー タ ポ イン タ は 移動 し ます . デー タ ポ イン タ が 何 バ イ 
ト ず つ 移 動 す る か は 入出 力 関数 に よっ て 表 3.15 の よう に 異な り ま す . 


デー タイ ンタ の 


配列 の 型 に 応じ て 変化 する 
char 型 …1 バ イト 
int 型 …4 バ イト 
float 型 …8 バ イト 


freads/fwrites 文字 列 1 行 の 長 さ だ け 移 動 する 
fgetc/fputc char 型 変数 1 バイト 
| fseek 。 すべ て の 変数 | 引数 で 指定 され た オフ セッ ト の 分 だ け 移 動 す る 


表 コ .1 ら 5 デー タ ポ イン タタ の 移動 量 













fread/fwrite 配列 変数 










また だ た, XX-BASIC で は , field 命令 を 使っ て バッ ファ に 文字 変数 の 領域 を 割り 当て る 必要 は あり 
ませ ん . fread 関数 や fwrite 関数 を 使っ て 配列 変数 の 内 容 を ファ イル か ら 読 み 込 ん を だり, ファ イ 
ル に 書き 込ん だ り し ます か ら , ちょ うど 配列 変 数 が ファ イル バッ ファ に な る と 考え られ ます . 
リス ト 3.26 に ラン ダム アク セス を 行う プロ グラ ム 例 を 示し て お きま す . 


リス ト d. 選 巳 ラン ダム アク セス の 例 


ャ ーー 


・ dim str Namae(5)[29]= { "Nakapata","Shimotuka", "Gara"」 "Yoshinura”. "Po" 
.PKUTO") 

・dim float Daritu(5) = { 9.345#, 7.333#,9.275#,9.391#,9.288#,.321# ) 

:・ dim char tmp(2) 

・ str st[2g] 

* NE TpD。 1。 ま 。 1 

・/* デー タ の 書込み 

・ fp = fopen(”BASEBALL", 

・for ji =9to5 

| = strlen(Namae(i)) 

2 有 有 了 ^ ぺ メ ノ X ノ 〔】 ん ん 妥 有 > メ < ね < マ < ノ …(17(〈^( TU べべ 


C) 


CO CO = ココ の の) の 届 CO FoO 
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7 グズ ンズ ダ ィ 著 安 乏 


19: tmp(9) = | 

邊 し for J = 1 to | 

12: tmp(j) = asc(mid$(Namae(i),j, 1)) 
19・ next 

14: for J」=tol 

15: fputc(tmp(j), fp) 

16: next 

8 st = gcvt(Daritu(i),4) 

18: for J」=!to3 

19: fputc(asc(mid$(st,j+1, 1 ) ), fp ) 
2: next 

21: next 


22: fclose(fp) 

23: fp = fopen(”"BASEBALL","R”) 
24: /* 名 骸 だ け 収 り 出 す 

25: for ji =to5 


26: | = fgetc(fp) 

7 fread(tmp, |,fp) 

28: for J=9tol-] 

29: print chr$(tmp(j)): 

30: next 

S 1 ・ Print 

2 fseek(fp,4,1) /* 打率 は 飛ば す 
S3・ next 


34: fclose(fp) 





ファ イル を 使い 終わ っ た ら , fclose 関数 で クロ ー ズ し ます . fcloseall 関数 を 使う と 。 オー プン さき 
れ て いる ファ イル が すべ て クロ ー ズ され ます . 





づ . / グラ フィ ックス 


X68000 の グラ フィ ッ ク 機 能 は , 他 の パソ コン と は 比較 に な ら な い ほ ど 優 れ て いま す . この 優れ 
た 機能 を 利用 する に は , や は り X-BASIC を 使っ て プロ グラ ミン グ す る の が ベス ト で し ょ う . 用 
意 さ れ て いる グラ フィ ッ ク 機 能 は , 点 や 線 の 描画 と スプ ライ ト の 2 つの 部 分 か ら 成 り ま す . 

それ で は , これ ら の 部 分 に つい て 順次 紹介 し て いく こと に し まし ょ う . 


ヴ ./.| 抽 画 関連 の 関数 


抽 画 を 行う た め の 関 数 に は 次 の よう な も の が あり , 外部 関数 ファ イル GRAPH.FNC に 収め ら 
れ て いま す . 表 3.16 を 見 る と , その 数 に も 驚か され ます が X68000 の グラ フィ ックス の し くみ に 
つい て , ある 程度 知識 が な いと 使い か た の わか ら な い 関 数 も ある こと が わか り ま す . ここ で は , 
か ん た ん な グラ フィ ックス の し くみ と 関数 の 使い か た を 解説 し ます . 
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グラ フィ ッ ク 関 数 
戻り 値 の 意味 


circle(x, y, 『, PD, 



























得 ら れる カラ ー コ ー ド は 0 て 65534 まで の 偶数 値 と な る 


line (x1, y1, x2, y2, p 
[, ls]) 


paint(x, y, D) Int 型 
in{ 型 


int 型 グラ フィ ッ ク 画 面 上 に 直線 を 引く 





グラ フィ ッ ク 画 面 上 の 任意 の 単色 領域 内 を 塗り つぶ す 
パレ ッ ト p に カラ ー コ ー ド c を 設定 する 
グラ フィ ッ ク 画 面 上 の 座標 (x, yy の パレ ッ ト コ ー ド を 返 
す 


es Pe) int 型 グラ フィ ッ ク 画 面 上 に 円 , 扇 型 を 描く ーー- 
昌 画面 の 明る さ を 設定 する . 明る さ i は 0 が 最も 暗く ,15 ーー 
ラ ッ ク 画 Na 塗り つぶ し た ボッ クス 
int 型 
1 YY る | yux22) 指定 領域 の ドッ ト パ タ ー ン を 配列 に 読み 込む 
配列 名 (na) 
グラ フィ ッ ク 表 示 画 面 の 実 画面 上 の 左上 座標 を 設定 す 
home(pa, x, y) int 型 る 
screen 文 を 実行 する と (x, y) が (0, 0) に 再 設 定 さ れる 
色相 (hu), 飽和 度 (sa), 明る さ (va) か ら カ ラー コー ド 
hsv(hu, sa, va) int 型 int 型 を 求め る 








palet(p, c) 


い ドー 


point( x, y) int 型 int 型 













peetou y 5 プラ フィ ッ タ ク 本 上 に ドッ ト 表示 する に 一 0 
int 型 
yy.2), get() で 読み 込ん だ パタ ー ン を 画面 上 に 表示 する 
配列 名 (na) 
赤 (r), 緑 (g), 青 (b) の 強 さ を 0 て 31 で 選び , カラ ー コ 
rgb(r, 9, b) int 弄 int 型 ー ド を 求め る . カ ラー コー ド は 065534 の 偶数 値 と な | カラ ー コ ー ド を 返す 
る 


int 型 
symbol( x, y, st, h, vV, | (xy,mo, Dam), 


"ララ い ] 由 | ー rー 示 


char 型 (h, vV) 






ミル ーー 


又 自 






グラ フィ ッ ク の 各 ペ ー ジ (0 て 3) の 表示 ON/OFF の 
を する 
グラ フィ ッ ク 表 示 画 面 で クリ ッ ピ ング する 座標 の 範囲 
を 設定 する 
apage() で 指定 され た アク ティ ブ ベ ページ を 消去 する 


vpage(i) int 型 





window( x1, y1, 


x2. y2 int 型 






wipe() 


グラ フィ ッ ク 関 数 の パラ メー タ 

s 5 

xy 座標 : 32768 て 32767 

| p 。 | パレ ッ ト コ ー ド (65536 色 モー ド で は カラ ー コ ー ド に 等 し い ) : 015.0 て 255.0~65586 
ーー 

























ライ ンス タイ ル (line, box) : 0 て 65535 = 
ls 円 を 描き 始め る 角度 (circle) : 0 て 360 

le 円 を 描き 終わ る 角度 (circle) : 0 て 360' 

IPy 偏平 率 (circle) : 0 て 32767 [hv く 256… 横 長 枯 円 , hv=256… 真 円 。 hv>256… 縦 長 椿 円 
Le 


パタ ー ン を 読み 込む 数 値 型 一 次 元 配列 名 (get, put) 












表 コ .1B 描画 関連 の 関数 と バラ メー タ 
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37 グラ フィ ックス 


田 グラ フィ ッ ク 画 面 の 構成 

グラ フィ ッ ク 画 面 は , 描画 する た め の 画 面 ( 実 画面 ) と 表示 する た め の 画 面 (表示 画面 ) の 2 つ 
に 分 れ て いま す . 

実 画面 と は , line や paint な どの 関数 で 絵 を 描い た と き , 実際 に 絵 の デ ー タ が 書き 込ま れる 範囲 
に な り ま す . グラ フィ ッ ク 画 面 の 座標 系 の 範囲 は , 論理 的 に は (一 32,768,。 一 32,768) て (32,767, 
32.767) と な っ て いま す が ,。 これ は , 関数 の 引数 と し て 指定 可能 な 値 (エラ ー に な ら な い 値 ) の 範 
囲 に 過ぎ ませ ん . 実際 に グラ フィ ッ ク VRAM に デー タ が 書き 込ま れる 範囲 は , screen の 第 2 パ 
ラメ ー タ ( 実 画面 。 色 モー ド お よび 使用 可能 な グラ フィ ッ ク ペ ー ジ ) に よっ て 変化 し ,。 0 な ら ば (0, 
0) て (1,023。 1.023)。 1 から 3 な ら ば (0。0) て (511。 511) と な り ま す . これ が ,。 実 画面 の 範囲 
が 

表示 画面 は , 実 画面 か ら デ ィ ス プレ イ に 投影 する 領域 と 考 えれ ば よい で し ょ う . この 領域 は , 
home 関数 に より 実 画面 の 範囲 内 で 自由 に 移動 きせ る こと が で きま す . た だ し , 表示 画面 の 大 き さ 
は , screen の 第 1 パラ メー タ ( 表 示 画 面 サ イズ ) に よっ て 規定 され , 0 な ら 256X256, 1 な ら 512※ 
912。 2 な が なら 768X512 と な りり ます ( 図 3.3). 


(一 32768, 一 32768) 


(0.0) XY 論理 座標 系 


表示 画面 座標 系 


(767, 511) 
実 画面 座標 系 





(32767, 32767) 


3.3 各 画 面 の 座標 の 範囲 


加 ダラ フイ ッ シ ペ ー ツ ジ 

実 画面 の 大 き さ が 512x512 で , か つ 色 数 が 16 色 ま た は 256 色 の モー ド の と き に は , グ ラフ ィ ッ 
ク ペ ー ジ を 使う こと が で きま す . グラ フィ ッ ク ペ ー ジ と は , 描画 可能 な 面 と いう 意味 で 。 ちょ う 
ど 複 数 の カン バス が 重なっ て いる よう に と ら え る こと が で きま す . 画 面 モ ー ド に より , 何 枚 の ペー 
ジ が と れる か が 決り ます ( 図 3.4). 


「 ラ タ 


3 章 X-BASIC プロ グラ ミン グ ガ イド 


① 実 画面 1024X1024 ド ッ ト 16 色 1 画面 モー ド ② 実 画面 512X512 ド ッ ト 16 色 4 画面 
(0,0) 


511 X512 
表示 画面 サイ ズ 256X256 
768X512 
512X512 


256X256 





(511, 511) 


③ 実 画面 512 メ 512 256 色 2 画面 
(0,0) 





表示 画面 
(1023, 1023) 512x512 
256 x256 


図 3.4 画面 モー ド に よる グラ フィ ッ ク ペ ー ジ 数 (511, 511) 


グラ フィ ッ ク ペ ー ジ が 複数 ある 場合 を 。 マル チ ペ ー ジ モー ド と 呼び ます . XX-BASIC の グラ 
フィ ッ ク 関 数 は 。1 回 で 1 枚 の グラ フィ ッ ク ペ ー ジ に し か 描画 を 行わ な い の で , 描画 を する まえ 
に 。 対象 と な る グラ フィ ッ ク ペ ー ジ (アク ティ ブ ペ ー ジ と いう ) を 1 枚 だ け 指 定 し な けれ ば な り 
ませ ん (apage 関数 )、 し た が っ て 描画 する 際 に は , まず アク ティ ブ ペ ー ジ を 決め た あと , 捕 画 を 
行う 関数 を 呼び 出し て 。 指定 し た ペー ジ に 絵 の デ ー タ を 書き 込む せこ と に な り ま す . 

また 。 実際 に 表示 され る ペー ジ を 表示 ペー ジ と いい , 描画 の と き と は 異な り , 複数 の 表示 ペー 
ジ を 重ね 合わ せ て 同時 に 表示 する こと が で きま す . この 指定 は , vpage 関数 で 行い ます . た だ し , 
重ね 合わ せ に は 優先 順位 が あり 。 グラ フィ ッ ク ペ ー ジ 0 が 一 番手 前 に 表示 され , ペー ジ 番 号 の 小 
さい 順に 重ね 合わ され ます 。 こ の 優先 順位 は 。 BASIC の レベ ル で は 変更 で きま せん の で , 表示 さ 
れる 結果 を 考え な が ら 描 画す る 必要 が ある で し ょ う . 


田 カラ ー の 考え か た 

色 の 指定 に は ,。 パレ ッ ト と いう 考え か た を 使い ます . パレ ッ ト と は , その 名 の と お り 繧 の 具 の 
チュ ー ブ か ら 必 要 な 色 を 取り 出し て お く < パレット? の 役割 を し ます . 1 つの ` パ レット? (パレ ッ 
トブ ロッ ク ) に は 。 絵の具 を 絞り 出せ る 部 分 が いく つか あり , それ ぞ れ の 部 分 に は 番号 (パレ ッ 
トコ ー ド ) が 振ら れ て いま す . 

そし て , 具体 的 な 色 の 指定 は , 絵の具 の 色 番号 (カラ ー コ ー ド ) で は な く ,。 パレ ッ ト コ ー ド を 
使っ て 間接 的 に 行い ます 。 この よう な 指定 方 式 に し て お く と , すでに 塗っ て し まっ た 色 を 変え た 
いと いう よう な 場合 ,、 パ レット コー ド は その まま で も , パレ ッ ト に 絞り 出し て ある 絵の具 の 色 , 
すなわち カラ ー コ ー ド を 変え て や れ ば 。 塗り つぶ し た 信 域 の 色 を ふた た び 塗 りな お さ ず に 色 を 変 
える と と が で きま すず ( 図 3.5)、 
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は / グラ プイ y 女 


絞 り 出 すこ と の で きる 絵の具 の 色 数 は , 当然 パレ ッ ト の 数 に よっ て 決ま り ま す . X68000 に は , 
16 色 モ ー ド , 256 色 モ ー ド , 65,536 色 モ ー ド の 3 つの モー ド が あり ます . 

た だ し , 65,536 色 モ ー ド で は パレ ッ ト コ ー ド と カラ ー コ ー ド は 。 同値 と みな され ます . つま り 。, 
繧 の 具 を パレ ッ ト に と ら ず , いき な り 紙 の 上 に 絞り 出し て し まう と いう 行為 と 似 て いま す . 


バ パレット ナン パー 4 べつ 





パレ ッ ト プ ブロ ッ ク カ ガ カラー コード 


3.5 パレ ッ ト の 考え か た 


さて ,。 実際 に 色 を 表現 する 方 法 は 。 どの よう に な っ て いる の で し ょ うか . 

色 の 表現 に は , 光 の 三原 色 ( 緑 , 赤 , 青 ) と 輝度 (明る さ ) を 組み 合わ せま す . つま り 。 カラ ー 
コー ド と は ,。 緑 , 赤 。 再 が それ ぞ れ 5 ビッ ト ず つと 輝度 (明る さ ) が 1 ビッ ト の 計 16 ビッ ト で 表 
され る 色 の デー タ で す . 具体 的 に は , 16 ビッ ト の うち , bit15^-bit11 の 5 ビッ ト が 緑 , bit10->bit6 
の 5 ビッ ト が 赤 。 bit5--bit1 の 5 ビッ ト が 青 , bit0 が 輝度 を 示し ます . 

カラ ー コ ー ド は , ビッ ト パ タ ー ン か ら 計 算 し て 決定 する の で す が 。, rgb 関数 や hsv 関数 を 使う 
と , 比較 的 楽に カラ ー コ ー ド を 求め る こと が で きま す . rgb 関数 は , 赤 。 緑青 の それ ぞ れ の 明る 
さ を 0 か ら 31 の 範囲 で 調整 し て 任意 の カラ ー コ ー ド を , hsv 関数 は 色相 。 明 る さ , 飽和 度 を それ 
ぞ れ 調整 し て カラ ー コ ー ド を 求め る 関数 で す . rgb 関数 と hsy 関数 で 得 ら れる カラ ー コ ー ド は 0 
か ら 65,.534 まで の 偶数 コー ド で す . 

これ ら の 関数 で 求め た カラ ー コ ー ド に 1 を 加え る こと で 。 0 か ら 65,535 の すべ て の カラ ー コ ー 
ド が 求め られ ます . 偶数 の カラ ー コ ー ド は 暗く , 奇数 の カラ ー コ ー ド は 明る く な り ま す . 


一 描 軸 ご こ 水 り つぶ し 

抽 画 に は 点 , 直線 , 長方形 , 正 円 , 椿 円 , 円 弧 , 塗り つぶ し が あり ます . この ほか ,。 グ ラフ ィ ッ 
ク 画 面 の 一 部 の 和男 囲 を 配列 に 読み 込ん だ り , 配列 の 中 身 を グラ フィ ッ ク 画 面 に 表示 し た りす る こ 
と が で きま す . 基本 的 な 描画 プリ ミ テ ィ ブ の 使い か た は ,。 それ ほど 難し く あ り ま せん . 

まだ た だ, 特徴 的 な の は , グラ フィ ッ ク 画 面 に 文字 を 表示 する こと も で きる 機能 (symbol 関数 ) で 
すこ の 関数 は , CG-ROM に は いっ て いる 文字 フォ ント を グラ フィ ッ ク 画 面 に 表示 し 。 か つ 大 き 
さ (倍率 )。 表示 色 。 回 転 な ど を 指定 する こと が で きま す . リス ト 3.27 で は 90 度 左 に 回 転 き せ て 
いま す . 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 


リス ト 紀 . 選 / symbo| 関数 の 使い か た 


char h,yv, mo,an 

str st = "X68 角 連 

screen 2,, 1, 1 

h=1:v=1 

MO0 ニ 2 

an=M 
symbol(395, 29, st, h, y, mo, 11,an) 
ahn=] 
symbol(259, 259, st,h, Y, mo, 11,an) 
・ 8In=3 

・ Symbol(43, 189, st,h, y, mo, 11,an) 
・ h=2:v=2 /* 縦横 の ら 倍 

・ symbol(265, 129, st,h, y, mo, 11,an) 
・ 8n=Z2 

・ symbol(412,329, st,h, y, mo,11,an) 
・ end 


と ーー トー テー トー トー トー トー ニー トー 
^_)O っ Cm な CC こ らら >ー 選 で の - こ コ O の つの の ⑦G8 く PO 





以上 で 。 グラフィック 関連 の 関数 に つい て の お お よそ の 説明 が すん だ わけ で す が 。 最 後に こ 
ら を 使っ た か ん た ん な プロ グラ ム 例 を リス ト 3.28 に 示し ます . この サン プル か ら 。 描画 の 手順 な 
ど を 理解 し て いた だ ける も の と 思い ます . 


リス ト 紀 . 己 日 グラ フィ ッ ク の 描画 の 例 


注 馬 革 抹 ま 1 の 

ws 5LE る 

・ SCreen 1,]1,],1 

・ window(9,9,511,511) 

: Vpage( り ):apage(3) 

・ box(199, 1 匂 ,411,411,7) 

・for ji = 1 to 3 

x] = 19:y1 = 19* jij+ 1 呈 
X2 = 1 角 + 19* jiy2 = 411 
Iine(xl,y1,x2,y2,7) 

・ next 

・for i = ] to 3 

xl = 19* jij+ 1 六 :yl = 1 久 
X2 = 4]11:y2 = 1 + 19* ji 
Iine(xl,y1, x2,y2,7) 

・ heXt 

・ PFint "Press Any Key..…『" 

・S = inkey$ 
・ while s = 
S = jnkey$ 
・ endwhile 

・ vpage(8) 

・ end 
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37 グラ プイ ィ イッ クス 


ご /. ど ズ フ プラ イト 

表示 画面 モー ド が 768X512 ドッ トモ ー ド 以外 の と き ,。 スプ ライ ト 機 能 を 使う こと が で きま す . 
これ は , グラ フィ ッ ク 画 面 や テキ スト 画面 と は 別に ,。 16 ベ X16 ドッ ト の グラ フィ ッ ク パ ター ン を 表 
示し , 高速 移動 する こと が で きる も の で ,。 ゲー ム 専 用 機 や MSX な ど に も 用 意 き れ て いる も の で 
す . し か し , 使用 で きる 色 数 や パタ ー ン の 数 な ど 。 表示 能力 で は X68000 に は お よび ませ ん . 


弄 スプ ブラ イト の し くみ 

スプ ライ ト は 。 目 分 が 定義 し た 図形 パタ ー ン (スプ ライ ト パ タ ー ン ) を 。 い っ た ん スプ ライ ト 
用 の 領域 に 書き 込ん で お き , ハー ドウ ェ ア に , 表示 位置 を 示す 座標 な どの パラ メー タ を 渡す だ け 
で ディ スプ レイ に 表示 で きる 機能 で す . つま り , スプ ライ ト パ タ ー ン を 移動 する に は , ハー ドウ ェ 
ア に 渡す 座標 を 変更 する だ け で すむ の で , 高速 に 複数 の 図形 を 移動 する こと が で きま す . 

ユー ザー が 定義 で きる スプ ライ ト パ タ ー ン の 大 き さ は 16※X16 ドッ ト 。, 数 は 最大 256 個 で す . な 
お , あと で 解 語 す る バッ ク グ ラン ド 画 面 の た め の ス プラ イト パタ ー ン と し て , 8X8 ドット の 大 き 
さ で も 定義 で きま す . 

答 ス プラ イト パタ ー ン に は , パ ター ン 番 号 と いう 0 か ら 255 まで の 数 値 が 割り 当て られ て お り 。, 
各 パ ター ン の 管理 に は この パタ ー ン 番号 が 利用 きれ ます . 

スプ ライ トバ パ ター ン の 色 は ,。 画面 上 の 1 ドッ ト を 4 ビッ ト の 大 き さ の パレ ッ ト コ ー ド で 表現 さき 
れ ま す .。 1 つの パタ ー ン で は 同時 に 16 色 し か 表示 で きま せん が , パレ ッ ト コ ー ド と カラ ー コ ー ド 
の 対応 を 変更 する こと に より ,。 65,536 色 か ら 色 を 選ぶ こと が で きま す . 

スプ ライ ト の パレ ッ ト の 構造 は テキ スト や グラ フィ ッ ク の それ と は 少し 違い ます . テキ スト 
や グラ フィ ッ ク の パレ ッ ト に は ,。 パレ ッ ト コ ー ド と カラ ー コ ー ド の 対応 表 で ある パレ ッ ト プ ブロ ッ 
ク が ,。 それ ぞ れ に 1 つ ず つ し か 存在 し ませ ん で し た が , スプ ライ ト の パレ ッ ト に は , この パレ ッ 
トブ ロッ ク が 15 個 も 用 意 き れ て いま す 。 そ し て 。,。 ス プラ イト パタ ー ン を 表示 する 場合 に は ,。 ど の 
パレ ッ ト ブ ロッ ク を 使用 する か を 指定 で きる の で ,。 1 画面 に は 16X15=240 色 が 同時 に 表示 で き 
る わけ で す (た だ し ,。 どの パレ ッ ト プ ロッ ク で も 。 パレット コー ド 0 に は か な ら ず カラ ー コ ー ド 
0 を 割り 当て る 必要 が ある ). 


較 スプ ライ トバ ター ン の 表示 

スプ ライ ト 画 面 は . スプ ライ ト パ タ ー ン の み を 表示 する た め に 用 意 き され た 画面 で 。 テキ スト 画 
面 や グラ フィ ッ ク 画 面 と は 独立 し て いま す . スプ ライ ト 画 面 は 。 プレ ー ン と 呼ば れる 128 枚 の 画 
面 で 構成 され て お り 。 1 つの プレ ー ン に は 1 つの スプ ライ ト パ タ ー ン だ け を 表示 する よう に な っ 
て いま す . この 128 枚 の プレ ー ン に は , 0 か ら 127 まで の 番号 (プレ ー ン 番号 ) が つけ られ て お り , 
番号 の 小さ い ほ うか ら 手 前 に 表示 され る よう に 優先 順位 が 決ま っ て いま す . た だ し , ハー ドウ ェ 
ア の 制約 に より , ス プラ イト パタ ー ン を 33 個 以上 横 に 並べ る と, 番号 の 小さ きい プレ ー ン より 232 個 
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だ けし か 表示 され ませ ん . 
な お 。 ス プラ イト 画面 と 他 の 画面 と の 優先 順位 は 図 3.6 の よう に な っ て いま す . 


優先 度 = 0 優先 度 王 1 


テキ スト | 
バッ ク グ ラン ド 0 


スプ ライ ト は 表示 され な い . 





優先 度 三 2 優先 度 三 3 
ラン ド 0 上 


3.6 スプ ライ ト の 優先 順位 





バッ ク グ スプ ライ ト 





一 スプ ブラ イト 関数 
X-BASIC で は スプ ライ ト パ タ ー ン の 表示 を か ん た ん に 行え る よう に する た め の 関 数 が 用 意 き 


れ も て も 表す ( 表 3.17)。 


スプ ライ ト 関 数 


し 






char 型 (pg)), テキ スト ペー ジ pg を , パタ ー ン デー タ pd で 埋め つく 
bg fil(pg, pd) int 型 (pd) int 型 ーー 常に 0 
bg get(pg, x, y) char 型 int 型 本 EE 拉 昌 5 ーー タ 













テキ スト ペー ジ pg の 指定 され た 座標 に パタ ー ン デー タ 
pd を 設定 する 







char 型 
bg put(pg, X。Y, Pd) (po, XX。 y), int 型 
int 型 (pd) 


電 
bg scroll(b, 2 5 Me int 弄 バッ ク グ ラン ド b の スク ロー ル 座 標 を 設定 する 


bg set(b, [pg」 パッ ク グ ラン ド b へ の テキ スト ペー ジ pg の 割り 当て と 
[, md]) char 涯 int 弄 表示 の 設定 を 行う . 表 示 画 面 サイ ズ が 512X512 ドッ ト 
の 場合 は パック グラ ンド 1 は 表示 され な い 
バッ ク グ ラン ド b の 状態 を 読み 出す . 表示 画面 サイ ズ 
char 型 int 弄 が 256x256 の 場合 は X-Y 座標 に は 0 て 511 の 値 を 返 
aa す . 表示 画面 サイ ズ が 512x512 の 場合 は 座標 に は 0 
て 1023 の 値 を 返す 
cd1, cd2 で 指定 し た 範囲 の スプ ライ トバ パタ ー ン を 初期 
char 型 int 型 

















bg stat(b, md) 









SD Clr 
([cd1[, cd2]]) 






合 は 全 パ ター ン (0 て 255) が 初期 化 さ れる 


スプ ライ ト パ レ ッ ト の 色 を 指定 する 





化す る . cd1 だ けが 指定 され た 場合 は パタ ー ン コー ド cd1 
の パタ ー ン の み が 人 初期 化 され , 引数 を 両方 省略 し た 場 
Cha 型 ( P pb), 
int 型 (c 


Sp Color(p, c[, pb」) 
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スプ ライ トバ パ ター ン を 定義 する . パタ ー ン は 16X16 ド 
ッ ト で , 1 ドッ ト に つき 配列 の 1 要素 を 使う . 0 番目 の 
要素 が パタ ー ン の 左上 端 の ドッ ト を, 15 番目 の 要素 が 
右上 端 の ドッ ト を 定義 する .1 ドッ ト の デー タ は 4 ビッ 
ト で その ドッ ト の パレ ッ ト コ ー ド に な る 


スプ ライ ト 画 面 の 表示 を ON/OFF する 
meO | 一 | 一 | メラ ラ ィ ト 画 基 Ke す る 還 是 EE 
スプ ライ ト パ タ ー ン を プレ ー ン に 登録 し 表示 位置 を 決 
8 2 0 め る . パタ ー ン コー ド を 指定 する と , その スプ ライ ト 
は 表示 ON に な る 
s1 か ら s2 で 指定 し た プレ ー ン 番号 の 範囲 の スプ ライ ト 
の 表示 を OFF に する . s2 を 省略 し た 場合 は s1 で 指定 
sp_off(Ls1L,s2]」) | char 弄 し た プレ ー ン の スプ ライ ト だ け OFF に な る . また 。, 両 
方 省略 し た 場合 は 全 ス プラ イト の 表示 を OFF に する 
s1 か ら Ss2 で て 指定 し た プレ ー ン 番号 の 範囲 の スプ ライ ト 
の 表示 を ON に する .s2 を 省略 し た 場合 は s1 で 指定 し 
sp_on(Ls1L, s2」]) | char 型 た プレ ー ン の スプ ライ ト だ け ON に な る . また , 両方 省 
略し た 場合 は 全 ス プラ イト の 表示 を ON に する 


スプ ライ ト パ タ ー ン デー タ を , 指定 し た 配列 に 書き 込 
む . cd は パタ ー ン コー ド (0 て 255), ca は 要素 数 256 
Char 型 (cd, ps), の 配列 で , パタ ー ン は , 16X16 ドッ ト で , 1 ドッ ト に つ 
sp pat(cd, ca[, ps])| char(64, 255) き 配 列 の 1 要素 を 使用 する .0 番 目 の 要 素 が パタ ー ン の 
配列 名 (ca) 左上 端 の ドッ ト , 15 番目 の 要素 が 右上 端 の ドッ ト に 対 
その ドッ ト の パレ ッ ト コ ー ド と な る 


sp def(cd, char 型 (cd ps), 
ca[, ps]) | char 型 配列 (ca) 


sp set(s, [x」, [y], | cha 型 ($ pr), 
[pdJL, pr」) | im 型 w ピー 人 pd) 


応 し て いる .1 ドッ ト の デー タ は 4 ピット で, この 値 が 
スプ ライ ト の スク ロー ル 座 標 を 設定 する 


指定 し た スプ ライ ト の 状態 を 読み 出す 





スプ ライ ト 関 数 の パラ メー タ 


パタ ー ン コー ド (0 て 255) 
スプ ライ ト の パレ ッ ト コ ー ド (0 て 15) 


カラ ー コ ー ド (0 て 65535) 
要素 数 256 の char 型 の 配列 
スプ ライ ト を 表示 し た い プ レー ン 番 号 
表示 位置 (-16 て 1007) 
表 コ .1 プ フ スプ ライ ト 関 数 と バッ ク グ ラン ド 関 数 , パラ メー タ の 意味 





まず 。 ス プラ イト パタ ー ン を 表示 する た め に は , screen を 使っ て スク リー ン モ ー ド を 512X512 
ドッ トモ ー ド か 256X256 ドッ トモ ー ド に 設定 し ます . 

次 に sp init 関数 と sp clr 関数 を 使っ て , スプ ライ ト 画 面 や パタ ー ン を 初期 化し ます . sp cr 関 
数 の 引数 を 省略 し て 実行 する と 。 すべ て の スプ ライ ト パ タ ー ン が 初期 化 き され ます . 

スプ ライ トバ パ ター ン の 定義 は sp_def 関数 で 行い ます . 定義 で きる パタ ー ン の サイ ズ は , 16 ぶ 16 
ドッ ト と 8xX8 ド ッ ト の 2 種類 で す が , 通常 の スプ ライ ト パ タ ー ン は , 16 メ 16 ドッ ト を 使用 し , 8※ 
8 ドッ ト は バッ ク グ ラン ド を 構成 する パタ ー ン を 定義 する 場合 に だ け 使 用 し ます . パタ ー ン の 定 
義 内 容 は , char 型 の 一 次 元 配列 に 代入 し ます . 配列 の 要素 数 は , パタ ー ン の 大 き さ が 16X16 ド ッ 
ト の と き は 256 個 , 8X8 ド ッ ト の と き は 64 個 必要 で す 
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配列 の 内 容 は , パタ ー ン の 大 き さ が 16 ぶ X16 ドッ ト の と き を 例 に と る と , 配列 の 1 番目 の 要素 は 
座標 (0。 0) の パレ ッ ト コ ー ド を 示し , 2 番目 の 要素 は 座標 1。 0), …, 17 番目 の 要素 は 座標 (0, 
1), …, 255 番目 の 要素 は 座標 (15。15) に 対応 し て いま す (パレ ッ ト コ ー ド は 0 か ら 15 まで の 
値 ). リ スト 3.17 の 例 で は , パタ ー ン 番号 16 の スプ ライ ト パ タ ー ン を 。 配列 ca の 内 容 で 定義 し て 
いま す . 

次 に パレ ッ ト ブ ロッ ク や パレ ッ ト を 定義 (sp color 関数 ) し ます .。 リス ト 3.29 で は 。 パレ ッ ト 
ブロ ッ ク 3 番 を 使用 し 。 パレ ッ ト コ ー ド i 番 の パレ ッ ト に カラ ー コ ー ド i を 割り 当て て いま す . 

これ ら が 定義 で きた ら , sp _on 関数 を 使っ て 表示 を ON に する プレ ー ン を 決め ます . リス ト 3. 
29 で は プレ ー ン 16 を ON に し , sp disp 関数 を 使っ て スプ ライ ト 画 面 を 表示 し ます . 

スプ ライ ト パ タ ー ン を 動か す に は ,sp _move 関数 と sp set 関数 の 2 つ で 行い ます .sp move 関 
数 は ,。 スプ ライ ト パ タ ー ン の 表示 位置 を 変え る だ け で す が , sp set 関数 は , 表示 位置 を 変え る と 
同時 に 垂直 水平 反転 機能 . パレ ッ ト ブ ロッ ク 。 パレ ッ ト コ ー ド ,。 表示 する プレ ー ン の 設定 を 行 
いま す . 色 を 変え な が ら ス プラ イト パタ ー ン を 移動 きせ る と き は 後者 を 使う こと に な る で し ょ う . 
ぃ いずれ の 場合 も 。 表示 位置 は スプ ライ ト 画 面 上 の 座標 (X, Y と も に 16 一 1007 の 範囲 ) で 指定 
し ます . リス ト 3.17 の 例 で は , プレ ー ン 16 に パタ ー ン 16 を 割り 当て 。 マ ウス で 指し 示さ れ た と 
ころ に パレ ッ ト ブ ロッ ク 3 番 を 使用 し , 反転 せ ず に 表示 し ます . 


リス ト 紀 . 己 巳 スプ ライ ト の 使用 例 


1 


Int ji,X,y 


ま 


リ 


# 


# 


ます 


we 


で や ーー 


# * り 


詞 思 
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・ SCFeeh 1,1,.】,1 

・ mOUSe(9) 

・ sp_init():sp_clr() 

・ sp_def(16,ca) 

・ for i =9to7 
sp_color(i,&B11W9999999 * i++ 8&HC7,3) 
・ Inext 

・ Sp_on(16) 

・ Sp_disp(1 ) 

・ while ] 

MSPOS(X,Y) 
sp_set(16,x,y,&H319) 
・ endwhile 
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3.7 グラ フィ ックス 


田 バッ ク グ ラン ド 

バッ ク グ ラン ド と は 。 背景 画 向 け の スク リー ン で ,。 グラ フィ ッ ク 画 面 や テキ スト 画面 と は 独立 
し た バッ ク グ ラン ド 画 面 を 持っ て いま す . この 画面 に は 。 スプ ライ ト 画 面 で 使用 する スプ ライ ト 
パタ ー ン を 並べ て 貼り つけ ます . 1 つの パタ ー ン を 1 ドッ ト ご と に 移動 する こと は で きま せん が , 
画面 全体 を ハー ドウ ェ ア で スク ロー ル で きる の で ,。 背景 の 絵 を 滑ら か に 移動 きせ る こと が で きま 
す . 

バッ ク グ ラン ド は スプ ライ ト 同 様 に 。 表示 画面 モー ド が 512X512 ドッ ト と 256X256 ドッ ト の 
と き 使 用 で きま す . バッ ク グ ラン ド の 使用 可能 面 数 と 定義 可能 な スプ ライ ト パ タ ー ン の 最大 値 は 
表 3.18 の よう に な っ て いま す . 


二 スプ ライ トバ パターン | バッ ク グ ラン ド を | 使用 可能 な 


表 コ .1 日 バッ ク グ ラン ド 面 数 と スプ ライ トバ パター ン 数 






さて 。 バック グラ ンド は グラ フィ ッ ク と 同様 に 描画 系 と 表示 系 の 2 つ に 分 れ て いま す .。 ここ で 
は 。 描画 系 を テキ スト ペー ジ , 表示 系 を バッ ク グ ラン ド ペ ー ジ と 呼ぶ こと に し ます ( 図 3.7). 


256 メ 256 モ ー ド で は 8X8 ド ッ 凶 加 、 
の ス ノバ バタ ーー 
512X512 モ ー ド で は 16X16 ド ッ ト アト 7 ゲー ダ 条 
64X64 の マス 目 に 貼り つけ て いく こと が で きる 
63 






実際 の 表示 画面 


1 枚 の バッ ク グ ラン ド 面 


63 


表示 開始 位置 を 任意 に 設定 する こと で 
スク ロー ル が で きる 


BG( バ ッ ク グ ラウ ンド )0, BG1 と いう よう に , バ ッ ク グ ラン ド は 同じ も の が 2 画面 持て る 
た だ し , 512x512 モ ー ド で は , BG1 は 表示 で きず , 同時 に 2 画面 は 使え な い 


3. プ デキ スト ペー ジ と バッ ク グ ラン ド ペ ー ジ 
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テキ スト ペー ジ に は , バッ ク グ ラン ド 画 面 に 表示 する スプ ライ ト パ タ ー ン の パタ ー ン 番号 や , 
パタ ー ン の 反転 表示 フラ グ 。 使用 する パレ ッ ト ブ ロッ ク 番 号 を 格納 し ます . 表 3.18 に ある よう に 
表示 画面 モー ド に より 最大 2 ペー ジ ま で と る こと が で きる の で , 1 面 ご と に テキ スト ペー ジ 0, テ 
キス トペ ー ジ 1 と 呼ぶ こと に し ます . 表示 画面 モー ド が 512X512 ドッ ト の と き は , テ キス トペ ー 
ジ 0 し か 使用 で きま せん . 

テキ スト ペー ジ の 構造 で す が , 図 3.7 に 示し て ある よう に , XX-Y 座標 系 が 割り つけ られ て お り , 
その 範囲 は (0, 0) て (63。 63) と な っ て いま す 。 注意 す ベ べき こと は , この 座標 が 指し て いる も の 
は 1 ドッ ト の 点 で は な く 。16X16 ドッ ト か 8X8 ド ッ ト の スプ ライ ト パ タ ー ン で ある と いう こと 
で す . 

テキ スト ペー ジ に 貼り つけ られ た スプ ライ ト は ,。 バッ ク グ ラン ド ペ ー ジ に 投影 し て ディ スプ レ 
4 紀 表 示さ きれ ます 。 テキ スト ペー ジ は パク ー ン 単位 で 設定 され ます が , バック グラ ンド ペー ジ は 。 
テキ スト ペー ジ 内 に 投影 する 位置 を ドッ ト 単 位 で 指定 で きま す . また , バッ ク グ ラン ド ペ ー ジ も 
表示 画面 モー ド に より 最大 2 ペー ジ ま で あり 。 重ね て 表示 で きま す 。 こ の 2 ページ を バッ ク グ ラ 
ンド ページ 0, バック グラ ンド ペー ジ 1 と 呼ぶ こと に し ます 。 重ね 合わ せ の 優先 順位 は 。 バ ッ ク グ 
ラン ド ペ ー ジ 0 の ほう が 手前 に 表示 され ます . 表示 画面 モー ド が 512 メ 512 ドッ ト の と き は , バッ 
ク グ ラン ド ペ ー ジ 0 し か 使用 で きま せん . 

また だ, バッ ク グ ラン ド 画 面 は 。 スプ ライ ト 画 面 と の 重ね 合わ せ て , 図 3.8 の よう に 表示 する こ 
と も で きま す . 





d. 日 バッ ク グ ラン ド の 表示 
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田 バッ ク グ ラン ド 関 数 

で は , リス ト 3.30 を 例 に と っ て 。 バック グラ ンド を 操作 する 関数 の 使用 方 法 を 解説 し ます . 

バッ ク グ ラン ド の 表示 も スプ ライ ト の 場合 と 同様 に . まず ,。 表示 画面 モー ド を 512X512。 ま た 
は 256 メ 256 ドッ トモ ー ド に し ます . バ ッ ク グ ラン ド が 2 面 必 要 な と き は , 256X256 ドッ トモ ー ド 
に し ます . そし て , 初期 化 (sp init 関数 , sp clr 関数 ) を 行い sp_def 関数 で パタ ー ン を 定義 し 
ます . この と き 定 義 む する パタ ー ン の 大 き さ が 8X8 ドット の 場合 は , sp _def 関数 の 第 3 パラメータ 
を 0 に する こと を 訪れ な いで くだ さい 、. 

テキ スト ペー ジ に パタ ー ン を 設定 する た め に は , bg fil 関数 か bg _put 関数 を 使い ます . bg fill 
関数 は 1 個 の パタ ー ン で テキ スト ペー ジ を 埋め つく し , bg put 関数 は テキ スト ペー ジ 内 の 指定 さ 
れ た 座標 に パタ ー ン を 設定 し ます . リス ト 3.30 で は , bg put 関数 を 使っ て テキ スト ペー ジ 0 の 
(32。32) に 。 パ レッ トブ ロッ ク 3 を 使用 し て パタ ー ン 番号 16 の スプ ライ ト パ タ ー ン を 上 下 反 転 
表示 する よう 設定 し て いま す . 

次 に sp disp 関数 を 使っ て スプ ライ ト 画 面 を 表示 し ます . バ ッ ク グ ラン ド を 使用 する と き に も , 
sp disp 関数 で スプ ライ ト 表 示 を ON に し な けれ ば な ら な いこ と に 注意 し て くだ さい . 


リス ト 紀 . づ 3 バッ ク グ ラン ド の 使用 例 


5 3DE 1。X%。\ 

2: dim char ca(255) = {9,9.9.9,9, 99,9,9,9,9,9,9,9,9 
は 1 MM 1. 9. 9, 1. 11.9.9, 1.9,,1,D 
4: 9 2, の, 2,9, 2,9, 9,2,.9,2,.9,2,9, り 
DA の 9, 3 3.9.3.3.9, 3,.9, 3,.9,9, 
5・ 129, 4.9. の, 4.4.9, 99, 4.9, 2,1,. 
『 め 9 9 3.9,5,9,5,5,9, 5,9, 3.9,9,M 
8: の, 2.9,9, 6,.9, 9, 6,9,,9, 2,9,9 
9: 大 1 983.4、5.0。7。 7,。5。 4、3.9。1、0 
19: 1 3,4.5.9,7,7,9,5, 4.3.9,1,9 
当 9 9, 2,9, 9 9, 6,9, 9, 6,9, 9, 2.9,0 
]2。 9 9,3,9,5,9,5,5,9,5,9,3,.,9,9 
区 窟 1 2.9. 4.9,9,4,.4.9,9, 4.9,2,1,.09 
14: 9 9, 93.9,3.9.3.3.9,3.9,3,9,9,9 
15: 9 9, 2,9, 2 2.9, 9, 2,9,2,9,2,9,9 
16: 9 1. 1 9 9 1. 1 の , 1.9,9,1,6 
17: 9 9, 9, 9, 9, 角 , 9, 
18: } 

19: screen 1,1,1,1 
29: mouse() 
21: sp_init():sp_clr() 
22: sp_def(16, ca ) 
23: for i =9to7 
24 : sp_color(i,&B11999999 * ij」+ &HC7,3) 
25: next 
26: bg_fill(9,.&H8319) 
27: sp_disp(1) 
28: bg_set(9,, 1) 
29: while 1 
39: mSpOS(xX,y) 
81: bg_scroll(9,x,y) 
32: endwhile 

33: end 


タタ ヘ へ ヘ へ ノ メ ノ づ っ ろ 5 そ ヤヤ ャ キャ キヤ キャ キキ キキ 
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そし て , bg set 関数 を 用 いて , テキ スト ペー ジ を バッ ク グ ラン ド ペ ー ジ に 割り 当て て 表示 し ま 
す . リス ト 3.30 で は , テキ スト ペー ジ 0 を バッ ク グ ラン ド ペ ー ジ 0 に 割り 当て , 表示 ON に 設定 
し て ます 

最後 に bg scroll 関数 を 使っ て バッ ク グ ラン ド を 動か し ます . bg scroll 関数 は バッ ク グ ラン ド 
ペー ジ の 原点 (ディ スプ レイ の 左上 端 ) を テキ スト ペー ジ の どの 位置 に 対応 きせ る か を 設定 する 
関数 で す . リス ト 3.30 で は マウ ス の 指し 示す 位置 に .。 テキ スト ペー ジ に 設定 し た スプ ライ トバ パ 
ター ン が 表示 きれ る よう 。 座標 を 計算 し て スク ロー ル さ せ て いま す 、 


田 スプ ライ トバ ター ン ・ デ ー タ の 読込 み 

定義 され た スプ ライ トバ パ ター ン の 図形 デー タ は , sp pat 関数 を 使っ て 配列 に 読み 込む こと が で 
きま す . 図形 デー タ は , sp_def 関数 で 定義 むす る と き と 同 じ よ うに char 型 の 一 次 元 配列 に 格納 され 
ます .。 ま ただ, スプ ライ ト や バッ ク グ ラン ド の 状態 は ,. それ ぞ れ sp stat 関数 , bg stat 関数 を 使っ 
て 読み 出し ます . 

sp stat 関数 は , X 座標 ,Y 座標 。 パタ ー ン デー タ , 優先 度 の な か か ら 設 定 状態 を 知り た いも の 
を 1 つと, プレー ン 番 号 を 引数 と し て 渡す と , 戻り 値 と し て 読み 取っ た 値 を 返し ます . bg stat 関 
致 も 。 バック グラ ンド の 区 -Y 座標 。 割り 当て られ て いる テキ スト ペー ジ 番 号 。 バ ッ ク グ ラン ド の 
表示 ノン 非 表示 フラ グ の 内 で 設定 状態 を 知り た いも の を 1 つと ,。 バッ ク グ ラン ド ペ ー ジ 番号 を 引数 
と し て 渡す と , 戻り 値 と し て 読み 取っ た 値 を 返し ます . 

バッ ク グ ラン ド の テキ スト ペー ジ の 状態 は , bg_get 関数 で 読み 込み ます . bg get 関数 は テキ ス 
トペ ー ジ 番号 と テキ スト ペー ジ 内 の 座標 を 指定 する と , 指定 され た 座標 の パタ ー ン デー タ を 返し 
ます . この 関数 に より , テキ スト ペー ジ に 貼り つけ られ た パタ ー ン の 情報 を 得る こと が で きま す . 

ス デ フイ トド ト や パッ ク グ ラシン シド の パタ ー ン デー クタ を 作る た め に は 。 付属 の シス テム ディ スク に 人 は 
いっ て いる defsptool.bas” と いう ツー ル を 使っ て 行う と 便利 で し ょ う . この ツー ル で は 。 パ ター 
ン の 一 覧 , パタ ー ン の 作成 。 パ レッ トブ ロッ ク の 選択 色 の 作成 が 非常 に か ん た ん に で きま す . 
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3.9 オー デイ ィ イオ 





づ . と づつ オー ディ オ 


X-BASIC で は , ADPCM に よる 音声 入出 力 と , FM 音源 に よる 音楽 演奏 が で きま す . ADPCM 
は 。 音声 を デジ タル 変換 し て 録音 や 再生 を 行い , FM 音源 は , シン セ サ イ ザ と 同様 に . さま ざま な 
音色 を 作成 し て 演奏 を する こと が で きま す . ADPCM や FM 音源 の 音声 信号 は , X68000 本 体内 蔵 
の スピ ー カ また は オー ディ オ 出 力 端子 に 出力 され ます . 


3.8.1 ADPCM 


X68000 に は 。 音声 を デジ タル 変換 し て メモ リ に 記録 し た り , 逆 に メモ リ 上 の デー タ を アナ ログ 
変換 し て 音声 を 出力 する ADPCM 機能 が あり ます . CD( コ ン パ クト ディ スク ) など に 使わ れ て い 
る PCM と 比べ る と サン プリ ング 周波 数 が 同じ で も 音質 は 劣り ます が 。 メモ リ 消費 の 点 で は 
ADPCM は PCM より も 少な い 容 量 で すみ ます . ADPCM 関連 の 関数 ( 表 3.19) は , 標準 添付 の 
外部 関数 ファ イル AUDIO.FNC に 収め られ て いま す . 










旨 定 さ れ た 配列 の ADPCM デー タ を 再生 する . na は ADPCM 
デー タ を 格納 し て いる 数 値 型 一 次 元 配 列 名 , cl は サン プリ 
ング 周波 数 の 種類 を 表す 数 値 , md は 出力 モー ド を 表す 数 
値 , | は 再生 する 長 さ で ある 


指定 され た 配列 に ADPCM デー タ を 録音 する . na は ADPCM 
デー タ を 格納 する 数 値 型 一 次 元 配列 名 , cl は サン プリ ング 
周波 数 の 種類 を 表す 数 値 で ある 


















配列 名 (na), 
int 型 (cl md, |) 


a play(na, cl 
md[, 日) 


表 .1 選 ADPCM 関数 


ADPCM で デジ タル 変換 され た 音声 デー タ は , そ の 直前 に 変換 され た デー タ と の 差分 を と られ 
( 図 3.9)。 さら に 加工 され て 4 ビッ ト の 大 き さ に まとめ られ ます .。 この 4 ビッ ト の デー タ 1 個 を 
ADPCM デー タ と 呼ぶ こと に し ます . ADPCM デー タ の うち 下位 3 ビッ ト が 絶対 値 を , 上 位 1 
ビッ ト が 極性 を 表し て いる の で , 1 つの ADPCM デー タ の 表現 可能 な 数 値 の 範囲 は ー7 か ら 十 7 
の 幅 に な り ま す . 

X-BASIC で は 。 ADPCM デー タ を 配列 に 格納 する の で , 何 秒間 録音 , 再生 する か に よっ て 配 
列 の 要素 数 を 設定 し ます . どん な 型 の 配列 変数 に で も , ADPCM デー タ は すき 間 な く 詰 め て 格納 
され る の で 。 char 型 の 配列 な ら 1 要素 で 2 個 , int 型 な ら 1 要素 で 8 個 , float 型 な ら 1 要素 で 16 
個 の ADPCM デー タ が 蓄え られ ます . 

録音 に 必要 な メモ リ 容 量 は 表 3.20 の と お り で す . 
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ADPCM デ ー タ 
a_play( ) 





づ . ADPCM の 構成 






う .9kHz 1950 バイ ト 
ら 5.2kHz 2600 バイ ト 


3900 バイ ト 
10.4kHz 5200 バイ ト 
15.6kHz 7800 バイ ト 


表 . 己 サン プリ ング 周波 数 と ] 秒 当たり の デー タ 重 


サン プリ ング 周波 数 | 必要 な デー タ 量 








た と えば , char 型 の 配列 を 使っ て サン プリ ング 周波 数 15.6kHz で 20 秒間 録音 する 場合 7, 
600X20 三 156,000 個 の 配列 要素 が 必要 と な り ま す . 


づ . 選 | 己 FM 音源 

FM 音源 は サイ ン 流 を 合成 し た り 周 波数 変調 を か けた り し て 音 を 作る 音源 で , 同時 に 8 オク 
ター プ の 範囲 で 8 音 ま で 出力 する こと が で きま す . 音 を 出す た め に は いろ いろ と デー タ を 用 意 し 
な けれ ば は ならない の で 面倒 で す . し か し , 外部 関数 ファ イル MUSIC.FNC に は いっ て いる FM 音 
源 制 御用 の 関数 ( 表 3.21) と MML を 使え ば 比較 的 か ん た ん に 音楽 を 演奏 で きま す . 
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SR ーー デ イオ 







デフ ォ ル ト で は 1 か ら 8 チ ャ ン ネ ル が ,1 か ら 8 ト ラッ 


char 型 Int 型 
ク に 対応 し て いる 
[c3], [c4], [c5], 


c1 か ら C8 で 指定 され た チャ ン ネ ル に お いて , m stop() 
char 弄 int 型 で 一 時 停止 し た 演奏 を 再開 する . チャ ン ネ ル を すべ て | 正常 な 場合 は 0 を , エラ ー の 
還 間 ル の 演奏 を 再開 する 


char 弄 指定 され た トラ ッ ク の 残り バイ ト 数 を 返す 残り の バイ ト 数 を 返す 
FM (ラック ア ー タ 。 青 を 了 導 作る | 


[Le]、[e41. [es char 型 int 型 c1 か ら C8 で 指定 され た チャ ン ネ ル に 割り 当て られ た ト | 正常 な 場合 は 0 を , エラ ー の 
Lc6], [c7], [c8]) 
ら 8 に 対応 し て いて , 1 な ら ば 演奏 中 , 0 な ら ば 停止 中 


ラッ ク デ ー タ を 演奏 する 場合 は 一 1 を 返す 
m stat(c) char 型 int 型 
を 表す 


m stop([c1], [c2], か ら C8 で 指定 され た チャ ン ネ ル の 演奏 を 一 時 停止 す 

| 0 人 8 Pt 党 | チャ ン ネ ル を すべ て 省略 する と , 全 チ ャ ン ネ ル の 演奏 
5 を 一 時 停止 する 

! I | ーー 生 、 ミル ココ 正常 の 場合 は 0 を , ーー) 

Cher 0) MML に よる 楽 姓 デー タ を 指定 され た トラ ッ ク に 書き 込 | 正和 な 場合 は 0 を 。 エ ラー の 


場合 は 一 1 を 返す 


char 型 (vo), 時 ーー 
m vget(vo, ca) char 型 (4, 10) int 型 音色 デー タ を 配列 na に 読み 込む + 場合 9 0 Pe 
- 配列 名 (ca) 場合 は 1 を 返す 


Char 元 り (Vo) 人 た apeo ーー AN ナ ー 
配列 に 設定 され て いる 音色 デー タ を 指定 され た 音色 番 正常 な 場合 は 0 を, エラ ー の 
] 1| 
m vset(Vo, Ca) 0 Int 弄 号 の メモ リバ ッ フ ァ に 登録 する 場合 は 一 1 を 返す 


記 り 価 の 東条 


トラ ッ ク バ パップ ファ を 確保 する . ト ラッ ク バ ッ フ ァ は メ X- as aa 
BASIC が 確保 し た フリ ー エ リア と は 別に 確 避 され る | で の ニブ ー の 
確保 する と 同時 に トラ ッ ク バ ッ フ ァ は クリ ア さ れる 


FM 音源 の 各 チ ャ ン ネ ル に トラ ッ ク を 割り 当て る . 複数 
の チャ ン ネ ル に 同一 の トラ ッ ク を 割り 当て る と , それ 
ぞ れ 同じ 楽譜 を 演奏 する . また ., 複数 の トラ ッ ク を 1 つ 
の チャ ン ネ ル に 割り 当て る と 最も 新しく 割り 当て た ト 
ラッ ク の デー タ が 演奏 され る 



































正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 






m assign(c, 1) 








m cont([c1],[c2], 




































指定 され た チャ ン ネ ル が 演奏 中 か どう か 調べ る . 返さ 
れる バイ ト 値 の ビッ ト 0 か ら ピ ビット 7 が チャ ン ネ ル 1 か 







演奏 中 の 場合 は 1 そう で な け 
れい ば 0 を 返す . エラ ー の 場合 
は -ー1 を 返す 





















正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 































表 コ . 己 ] FM 音源 関数 


弄 MML に よる FM 音源 の 演奏 

人 間 が 楽器 で 演奏 する と き は 楽譜 を 見 て 演奏 し ます . これ を プロ グラ ム で 書け る よう に し た の 
が , MML (Music Macro Language) と 呼ば れる も の で す . MML の 記号 に は 表 3.22 の よう な 
も の が あり ます . これ は , str 型 変数 に 文字 列 と し て 格納 し , それ を 引数 と し て FM 音源 を 操作 す 
る 関数 に 渡し ます . 


A, B, C.… は 八 長調 の ラ , シ , ド .… に 対応 する . 文字 の 後ろ に # ま た は , を つけ る と 
半音 上 が り , 一 を つけ る と 半音 下がる 

オォ オクターブ プ の 指定 . デ フォ ルト 値 は 04. 数 字 が 大 きい ほど 音 が 高く な る . オク ター 
プ 0 で は C, CD は 使え な い . オク ター ブ 8 で は C, C#D 以 外 は 使え な い 


ララ ー プ を 1 っ 


オク ツア 
休 符 を 設定 する . デフ ォ ル ト 値 は R4. R の 後ろ の 数 字 は 何 分 休 符 か を 表す 
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T32---T200 テン ポ を 設定 する . デフ ォ ル ト 値 は T120 


音符 の 長 さ を 設定 する . デフ ォ ル ト 値 は L4. L の 後 の 数 字 は 何 分 音符 か を 表す 
音符 や 休 待 の 後ろ に つけ , し の 指定 に 関係 な くそ の 音符 や 休 待 の 長 さ を 決め る 


上 符 点 を 表す . 音符 や 休 符 の 後ろ に つけ て 長 さ を 1.5 倍 に する . 符 点 は 3 つま で 続け て 


つけ る こと が で きる . 2 つつ ける と 長 さ は 1.75 倍 に , 3 つつ ける と 1.875 倍 に な る 


音 長 の 何 割 を 発音 する か を 設定 する . デフ ォ ル ト 値 は Q8. 1-8 の 数 字 で 1/8~8/8 
り 1 一 『64 






























(=1) に 設定 され る 


前 後 の 斉 を つなぐ (タイ ) 


け の 中 に 現れ た 音符 を すべ て 指定 し た 長 さ の 間 に 鳴ら す .3 連 音 符 な ど を 表す と き に 
使う 


@L1--@L192 音 の 長 さ を 細か く 設 定 す る . デ フォ ルト 値 は @L48(L4). 全音 符 の 長 さ を 192 と し て 
実際 の 長 さ を 指 定 す る . L=192/@L の 関係 が 成り 立つ 


V0--V15 音量 を 設定 する . デフ ォ ル ト 値 は V8. 数 字 が 大 きい ほど 音量 が 大 きく な る 
@V0--@V127 V の 指定 に 関係 な く 音 量 を 細か く 設 定 す る 























| im :| | |:n と :| の 間 を n 回 繰り 返す . n は 1 ご 256 で , 省略 値 は 2 


繰返し の n 回 目 で 演奏 する 楽譜 デー タ を 指定 する . n は 1-256 
この 記号 が 現れ た ら 曲 の 先頭 に 戻る 
終了 の マー ク だ が , 1 度目 は 通過 し 2 度目 に この マー ク に 達し た と き に 終了 する 
[D.S.] 記 号 が 現れ た ら [SEGNO] 記 号 の あっ た と ころ まで 1 度 だ け 戻 る 
[TOCODA] は [CODA] に ジャ ンプ する と いう 命令 . た だ し , 1 度目 は 通過 する 


@1--@200 音色 の 番号 を 指定 する . デフ ォ ル ト 値 は @1 


出力 を 制御 する (p0 : 出力 Off p1 : 左側 出力 on p2 : 右側 出力 on p3 : 両側 出力 
On) 


OPM の レジ スタ を 直接 設定 する (r: レジ スタ 番号 プ d : デー タ ) &HO1, &H10, 
@ W1--@ W64 




























&H11, &H12, &H14 の レジ スタ 番号 は 使え な い 
指定 され た 長 さ だ け 現 在 の 状況 を 維持 する . デフ ォ ル ト 値 は @W4 










表 コ . つ 己 MML 


それ で は , FM 音源 を 鳴ら すま で の 処理 を 順 を 追っ て 解説 する こと に し まし ょ う . 図 3.10 に フ 
ロー チャ ー ト 。 リス ト 3.31 に か ん た ん な プロ グラ ム を あげ て お きま す の で , 委 考 に し て くだ さ 
いう 。 

まず 。 FM 音源 の 初期 化 (m init 関数 ) か ら ス ター ト し ます . 

次 に , m alloc 関数 で 演奏 デー タ の MML を 格納 する た め の ト ラッ ク バ ッ フ ァ を 確保 し ます . ト 
ラッ ク と は オー ケス トラ な ど で い うと 1 パー ト 分 の 楽譜 と いえ ます . この 場合 , 楽譜 と は MML 
を 指し 。 そ れ が 格納 され る 領域 に な り ま す . トラ ッ ク バ ッ フ ァ は 80 個 ま で 確保 で き , それ ぞ れ に 
] 番 か ら 80 番 ま で の 番号 が つけ られ ます . ここ で は n 番 の トラ ッ ク バ ッ フ ァ を トラ ッ ク n と 呼び 
1 

トラ ッ ク バ ッ フ ァ の 残り 容量 は m free 関数 で 得る こと が で きま す 。 な お , ト フ ラック バッ プ ァ 
は 。 双 -BASIC の フリ ー エ リア と は 別 の メモ リエ リア に 確保 さき れる の で , X-BASIC の 起動 時 に フ 
リー エリ ア を 広く と り 過 ぎ て いる と , 十分 な トラック バッ ファ を 確保 で き な い こと が あり ます . 
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3.8 オー ディ オ 


トラ ッ ク バ ッ フ ァ を 確保 で きた ら , m assign 関数 で FM 音源 の 各 チ ャ ン ネ ル を それ に 割り 当 
て ます 、。 1 番 か ら 8 番 の チャ ン ネ ル の 1 つ に 1 番 か ら 80 番 の トラ ッ ク バ ッ フ ァ を 1 つ だ け 割 り 当 
て ます . この 操作 は , 8 人 の 演奏 者 の うち , 誰が どこ に お いて ある 楽譜 を 見 て 演奏 する の か を 決定 
する の と 同じ こと で す . 

次 に , m_tempo 関数 を 使っ て テン ポ の 設定 を 行い ます . 

そし て , ト ラッ ク バ ッ フ ァ に に MML を 格納 し ます . MML を 文字 列 と し て 格納 し た str 型 変数 の 
名 前 と 。 トラ ッ ク 番 号 を 引数 と し て m trk 関数 を 呼び 出せ ば OK で す . 

最後 に m_play 関数 で 演奏 を 開始 し ます . m play 関数 を 呼び 出し た 後 は , FM 音源 を 管理 し て 
いる プロ グラ ム (MUSIC.FNC と OPMDRV.X) が , 割込み に より 一 定 の 周期 で 指定 され た トラ ッ 
ク バ ッ フ ァ よ り MML を 読み 出し て 演奏 し ます . 

m_stop 関数 で 演奏 の 中 断 。m cont 関数 で 中 断 さ れ た 演奏 の 再開 を 行 を ます. また, 各 チ ャ ン 
ネル は m_stat 関数 を 使っ て 演奏 中 か どう か を 調べ る こと が で きま す . 


T m_tempo() 
ST「ART テン ボ の 設定 


m_trk( ) 


m_init( ) 


FM 音源 の 初期 人 1 
m_alloc( ) 
トラ ッ ク バ ッ フ ァ の 凍 半 
確 保 








ae A ) m_cont( ) m_stat( ) 
ルル 演奏 再開 演奏 中 ? 
04 俳 演奏 中 


yeS 


6 


m_aSssiqgn( ) PISAOR 
トラ ッ ク を チャ ン ネ ル 演 中断 
に 割り 当て る 


END 


図 コ .10 FM 音源 を 使っ た 演奏 の 流れ 


リス ト 選 . ] FM 音源 の 演奏 例 


・ mm_init() 

・ mm_alloc(8,4996) 

・_8SSign(8, 1 ) 

・ 右 tempo(6B4) 

・ str mdata[255] = “"C8D8E8R16E16D8D16C16D8R8E8G8A8RI6A16G8" 
・ m_trk(1,mdata) 

・ 本 _play(1) 


っ JO っ Cm な で C で くら 





! 


1 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 


田 自分 で 音色 を 作る に は 
X-BASIC で は 68 個 の 音色 が すでに 設定 され て いま す ( 表 3.23) が 。 これ 以外 に も 200 個 ま で 
自由 に 音 を 設定 する こと が で きま す . 
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表 . ど コ すでに 設定 され て いる 音色 


AMBULANCE 
GAME SE2 





X68000 に 登載 され て いる FM 音源 は , 同時 に 8 音 ま で 発生 する こと が で きま す . これ ら の 1 つ 
1 つ を チャ ン ネ ル と 呼び , 1 個 の チャ ン ネ ル に は , 4 つの オペ レー タ が 備え られ て いま す . オペ レー 
タ は 。 正弦 濾 発振 器 と エン ベロ ー プ ジェ ネ レ ー タ (音量 の 変化 を 制御 する 機構 ) な ど で 構 成 さ れ , 
ここ か ら 音 の も と と な る 濾 が 発生 きれ ます . ( 図 3.11) 

音色 の 調節 は 。 この 正弦 濾 に エン ベロ ー プ や 。 LEO (Low Frequency Oscillator : 低 周 渡 発振 
器 )。 フィー ド バ ッ ク 。 オ ペレ ー タ の アル ゴリ ズム な ど , 多く の 加工 を 施す こと で 行い ます 。 欠 
-BASIC か ら も 。 きめ 細か く 加 工 を 行う こと が で きま す が , 目的 の 音 を 出す まで に は か な り の 経 
験 と セン ス が 必要 で し ょ う . 

音色 の 設定 に は , オペ レー タ や LEFO な どの 制御 の た め に 必要 な パラ メー タ を char 型 二 次 元 配 
列 に 格納 し , その 配列 名 と 音色 番号 を 引数 と し て m vset 関数 を 呼び 出す こと で 行い ます . 1 音色 
を 設定 する た め に は , 


dim char name (4。 10) 


と 宣言 され た 配列 が 必要 で す . 配列 に は いっ て いる パラ メー タ は 表 3.24 の と お り で す . 
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シン クロ 6 こも 
ュ ピ ー ド 6~259 
EVOP2 
AMoG-e り 
PMS(0 こ の 


配列 の 添え 字 配 列 の 中 身 配列 の 添え 宇 配 列 の 中 身 
(0, O) フィ ー ド パッ クン アル ゴリ ズム (0- と 63) AR( オ ペレ ー タ 1 へ 4) (0 て 31) 
1--4, 














AMS (0 て 3) DT1( オ ペレ ー タ 14) (07) 
L. RPAN(03) DT2( オ ペレ ー タ 1 へ 4) (0<3) 
(1 一 4,10) | AMS EN( オ ペレ ー タ 14) (0 て 1) 





表 コ . 己 コ パラ メー タ を 設定 する た め の 配 列 の 様子 
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パラ メー タ に は 。 音色 1 個 に つき 1 個 設 定 す る も の と 。 オペ レー タ ご と に 設定 する も の が あり 
ます . 配列 の 要素 (0。0) か ら (0。 9) まで は , 音色 1 個 に つき 1 個 の パラ メー タ で , (1, 0) か 
ら (4。10) まで が 4 個 の オペ レー タ に 対し て 個々 に 設定 され る パラ メー タ です. 


一 | 音 ご こ に 設定 する バラ メー タ 

4 個 の オペ レー タ に は 。 1 か ら 4 まで の 番号 が つけ られ て お り , 8 つの チャ ン ネ ル に も 1 か ら 8 
まで の 番号 が つけ られ て いま す 。 本書 で は , オペ レー タ 1 は 1 番 の オペ レー タ を 指し ,。 チャ ン ネ 
ル 1 は 1 番 の チャ ン ネ ル を 意味 する こと に し ます . 

オペ レー タ に は 。 キャ リア と モジ ュ レ ー タ の 2 種類 が あり ます . キャ リア は , 入力 され た 渡 と 
キャ リア 自身 が 作り 出し た 波 を 合成 し て 出力 し 。 モジ ュ レ ー タ は 入力 され た 流 に 周波数 変調 を か 
け て 出力 し ます 。 各 オ ペレ ー タ の うち 。 どれ が キャ リア また は モジ ュ レ ー タ と し て 働い て いる か 
を 次 に 示し ます . 

・ オ ペレ ー タ 1, オペ レー タ 3 三 モ ジュ レー タ 1 (M1), モジ ュ レ ー タ 2 (M2) 


・ オ ペレ ー タ 2, オペ レー タ 4 ニキ ャ リア 1 (C1), キャ リア 2 (C2) 


さて 。 1 個 の チャ ン ネ ル か ら 音 を 出力 する に は , 4 個 の オペ レー タ を 組み 合わ せる わけ で す が , 
組み 合わ せ か た を アル ゴリ ズム と 呼び ます . X68000 の FM 音源 は , 8 種類 の アル ゴリ ズム を 持っ 
て いま す ( 図 3.12). アル ゴリ ズム を 変え る と 出 て くる 音 は さま ざま に 変わ り ま す . どの アル ゴリ 
ズム を 使う か は 。 配列 要素 (0。 0) の bit3--0 の 3 ビッ ト に その 番号 を 設定 し ます . 


オペ レー タ 1 は セル フフ ィ ー ド バッ ク 機 能 を 持っ て いる 


上 の OP4 6 . 


0 


LLTsr] kems OP4 


ト O 





OP2 
『 : 
LTE OP4 
0P2 ト 10P3 | 
Lu OP4 9 
OP3 
5 OP2 
OP3 OP4 第 8 チャ ン ネ ル の 第 4 オペ レー タ だ け は ノイ ズ 


ジェ ネ レ ー タ へ の 切換 え が で きる 


図 ヨ .1 己 アル ゴリ ズム 
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3.8 オー ディ オ 


各 チ ャ ン ネ ル の モジ ュ レ ー タ 1 は 。 自分 自身 が 出力 し た 波 を 入力 し て 周波 数 変調 を か ける こと 
が で きま す . これ を フィ ー ド バッ ク と 呼び , 高周波 成分 を 増やし て 音 に 厚 ふ を つけ る こと が で き 
まま 3 。 

目 分 目 身 が 出力 し た 濾 の 位相 を ずら し て 入力 する こと も で き , その ずれ の 大 き さ を フィ ー ド 
バッ クレ ベル と いい ます . 位相 と は 渡 を XX-Y 軸 上 に 投影 し て 時 間 的 に 変化 を させ る と き 。 濾 が X 
軸 上 を どの くら い 進 ん だ か を 表す 値 で 。 波 が ちょ うど 1 周期 分 進ん だ と き の 位 相 は 2 ヶ で す . 


り 0SOFF 1 16 2 ん 8 3: ッ /4 4 ん /2 5 ァ 6:2。 7!4。 


フィ ー ド バッ ク は , 配列 要素 (0, 0) の bit5 て 3 の 3 ビッ ト に その レベ ル を 設定 し ます . 

各 チ ャ ン ネ ル は , それ ぞ れ オペ レー タ の 動作 の ON か OFF を 設定 で きま す . 各 チ ャ ン ネ ル の 4 
個 の オペ レー タ そ れ ぞ れ の ON グ OFF は 。 ス ロッ トマ スク と いう パラ メー タ で 設定 し ます . これ 
は , 配列 要素 (0 1) の bit3 か ら bit0 の 4 ビッ ト に , 下位 の ビッ ト か ら オ ペレ ー タ 1。 2。 3。4 の 
順に 割り 当て られ て いま す . 各 ビ ッ ト が 0 の と き OFF, 1 の と き ON で す . OFF に する と オペ 
ピー タク に 入力 され た 渡 が その まま 出力 され ます .ON の と き は , 入力 さ れ た 濾 を オペ レー タ 自 身 が 
作る 渡 と 合成 する か 周波 数 変調 を か ける か し ます . 


ワウ ヴェー ブフ ォ ー ム 

LFO は 目 分 自身 が 発生 する 低 周波 で 各 チ ャ ン ネ ル が 出力 し た 信号 に 振幅 変調 また は 周波 数 変 
調 を か ける こと が で きま す . 波形 は 振幅 変調 。 周波 数 変調 に それ ぞ れ 4 種類 あり , 波形 は ウェ ー. 
プ フ ォ ー ム と いう パラ メー タ で 指定 し ます . これ は 。 配列 要素 (0。 2) に 0 か ら 3 まで の 番号 を 
設定 し ます . 


シン クロ 

LEFO の 動作 を オペ レー タ が 濾 を 発生 する の と 合わ せ て (同期 し て ) 開始 する よう に で きま す . 
ジン クロ と いう パラ メー タ が 0 の と き 同 期 せ ず 。 1 の と き 同 期し ます . これ は 。 配列 要素 (0。 3) 
に その 値 を 設定 し ます . 


スピ ー ド 

LFO が 出力 する 低 周 渡 の 周波 数 は , 0.0009Hz か ら 59Hz の 範囲 で 設定 で き 。 こ の 周 濾 数 が 高い 
ほど 音 の 変化 が は げ し く な り ま す . LEFO の 周波 数 は スピ ー ド と いう パラ メー タ で 設定 し ます が , 
その 内 容 は 次 の と お り で す . 


+ ウ ツ 
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0 … 0.0009Hz 
255 …:. 59Hz 


スピ ー ド は 。 配列 要素 (0, 4) に 0 か ら 255 まで の 値 を 設定 し ます 


PMD〆AMD 

LEFO の 出力 レベ ル の 設定 が 大 きい ほど , 振幅 変調 の と き は 音量 の 変化 が , 周波数 変調 の と き は 
音程 の 変化 が 大 きく な り ま す 。 振幅 変 調 を か ける と トレ モロ 効果 が 生ま れ , 周波数 変調 を か ける 
と ビブ ラー ト 効 果 が 生ま れ ま す . レベ ル の 大 き さ は , 振幅 変調 の と き は AMD(Amplitude Modu- 
lation Depth) パラ メー タ で 設定 し , 周波 数 変調 の と き は PMD (Pitch Modulation Depth) パ 
ラメ ー タ で 設定 し ます 。 AMD, PMD と も に 0 か ら 127 の 範囲 で 設定 し , 値 が 大 きい は ほど レベ ル 
は 大 きく な り ま す . 

PMD は 配列 要素 (0。 5) に , AMD は 配列 要素 (0。 6) に , それ ぞ れ レベ ル 値 を 設定 し ます . 


PMS/AMS 

LFO の 変調 感度 (入力 され た 波 に LEFO が 変調 を か ける と き の 度 合い ) も 設定 する こと が で き 
ます . 変調 感度 が 高い と き の 音 を 聞く と , 変調 が か か っ て いる こと が は っ きり わか り ま す 。. 変調 
感度 は 振幅 変調 の と き は AMS (Amplitude Modulation Sensitivity) パラ メー タ で 設定 し 。 周波 
数 変調 の と き は PMS (Pitch Modulation Sensitivity) パラ メー タ で 設定 し ます . AMS は 0 か 
ら 3 PMS は 0 か ら 7 の 範囲 で 設定 し , 値 が 大 きい ほど と 変 調 感度 が 高く な り ま す . 

PMS は 配列 要素 (0,。 7) に , AMS は 配列 要素 (0,。 8) に , それ ぞ れ レベ ル 値 を 設定 し ます . 

な お ,。 PMD, PMS の どちら か 一 方 で も 0 に な っ て いる と 周波 数 変調 は か か り ま せん . また , 
AMD, AMS の どちら か 一 方 で も 0 に な っ て いる と 振幅 変調 は か か り ま せん . 


L,HPAN 

各 チ ャ ン ネ ル の 出力 先 は , 右 , 左 . ステ レオ ( 右 十 左 ) の 3 つか ら 1 つ を 選べ ます 。 L,R PAN 
と いう パラ メー タ に 次 の 値 を 設定 し ます . 

0 : 出力 OFF 

1 : 堪 

2 : 右 

3 : ステ レオ ( 右 十 左 ) 


これ は , 配列 要素 (0, 9) に 上 記 の 値 の うち どれ か を 設定 し ます . 
な お ,。 第 8 チャ ン ネ ル の キャ リア 2 だ け は , ノイ ズ ジ ェ ネ レー タ と 呼ば れる ザー” と いう 雑 
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3.8 オー ディ オ 


音 を 発生 さき せる も の と 切り 換え る こと が で きま す . ノイ ズ ジ ェ ネ レー タ を 使う と ゲー ム な どの 効 
音 を 作る こと が で きま す . 


田 オペ レー タ ご こと に 設定 する パラ メー タ 

オペ レー タ の 正弦 渡 発 振 器 より 出力 され る 正弦 渡 は , これ か ら 説 明 す る エン ベロ ー プ (音量 の 
変化 ) に 従っ て 出力 され ます . エン ベロ ー プ ジェ ネ レ ー タ は 音 が 鳴り 始め て か ら 鳴 り 終 わる まで 
の 音量 の 変化 を 制御 し ます ( 図 3.13). 


| 
トーAR-ー ュ ーD1R- 一 ピーーD2R 一 ーーRR-ー| 
1 0 て 31」 0 一 3 Dao 1 05! 


量 
音信 減衰 量 ! 小 一 大 | 小 一 大 小 二 大 小 一 大 
0dB 











時 間 


Key On Key Off 


.1 コ ヨコ エン ベロ ー プ 


音量 の 変化 は 音 の 鳴り 始め (Key On) か ら , 音 の 出力 を 止め る と き (Key Off), 音 の 鳴り 終 
わり まで の 制御 を 行い ます . Key On と Key Off は シン セ サ イ ザー や キー ボー ド な どの キー を 押 
し レ し た と き と キ ー を 離し た と き と い う 意 味 を 持っ て いま す . た と えば , ピア ノ の 鍵盤 を 押す と 音 が 
出 ま す が , 鍵盤 を 離し た 後 も し ば らく は 小さ い 音 が 鳴っ て いま す . も し , ピア ノ の 音 を 作る 場合 
に は , 音 が 聞こ を なくなる まで の 音量 の 変化 も 制御 し な いと ピア ノ ら し い 音 に は な り ま せん . 

この よう に , より 本 物 に 近い 音 を 作る た め に 音量 の 変化 を 設定 する の で す . 音量 の 変化 は , 次 
の よう な 5 つの パラ メー タ に よっ て 決ま り ま す 。 


・ ア タッ クレ イト (AR) … Key On 後 。 減衰 量 が 0dB に 達する まで の 音量 の 増加 の 割 
合 を 0 から 31 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 の 増 
加 は 速く 。 鋭い 音 に な り , 小さ いと や わら か い 音 に な る 

・ デ ィ ケ イレ ベル (D1L)  … 減衰 量 が 0dB に 達し て か ら , 音量 を 下げ る と き の 目 標 レ ベ 
ル を 0 か ら 15 の 範囲 の 減衰 量 で 表す . D1 し が 0 か ら 14 の 
と き は D1Lx3dB に 相当 し , D1 し = ニ 15 の と き 93dB に 相当 
する 
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・ デ ィ ケ イレ イト 1 (D1R) … 減衰 量 が 0dB に 達し て か ら ,D1L に 達する まで の 音量 の 減 
少量 を 0 か ら 31 の 和男 囲 で 設定 する . 値 が 大 きい ほど 音量 の 
減少 は 大 きく な り ,。 金属 音 に 近く な る 

・ デ ィ ケ イレ イト 2 (D2R) … 音量 が DL に 達し て か ら 。 Key Off に 達する まで の 音量 の 
減少 量 を 0 から 31 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 
の 減少 は 大 きく な り , 音量 が 下がる の が 速く な る 

・ リ リー スレ イト (RR) … Key Off 後 。 音量 レベ ル が 0 に な る まで の 音量 の 減少 量 を 
0 か ら 15 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 の 減少 は 
大 きく な り ,。 音量 が 下がる の が 速く な る 


音量 の 変化 を 表す た め に は 減衰 量 を 使い ます 。 減衰 量 と は , 音量 の 最大 レベ ル と 比べ て どの く 
らい 低い 音量 レベ ル か を 表す も の で , 値 が 大 きい ほど レベ ル は 低く な り ま す . 減衰 量 は 0 か ら 96 
の 範囲 で , 単位 は dB (デシ ベル ) で す . 0OdB の と き 音 量 は 最大 レベ ル で す . た だ し , 減衰 量 が 2 
倍 に な っ た か ら と いっ て 音量 の 変化 は 2 倍 に は な ら な い の で 注意 し て くだ さい . 

X68000 の FM 音源 は , 単なる 音源 と し て だ け で は な <《, 楽器 と し て の 機能 を 重視 され て いる た 
め 。 キー スケ ー リ ング と いう パラ メー タ が あり ます .。 これ は 。 音程 の 変化 に 応じ て 自然 な 音 に 近 
づく よう に , エン ベロ ー プ の 補正 を 行う 役割 を 果たし ます 。 低い 音 は 長く 重く 響き , 高い 音 は 短 
く 軽く 響き ます . キー スケ ー リ ング は 0 から 3 の 範 囲 で 設定 し ます ( 図 3.14). 


圭一 ーーーーーーーーーーーーーーーーーーー ーーーーーーーーーーーーー ーー 一 革 - 
た 、 音程 が 高く な る と / てこ 、 衣 程 が 低く な る と ーー、、 


時 間 が 短く な る 基本 エン ベロ ー プ 時 間 が 長く な る 


9.1 2 キ ー ス ケー リラ フ ダ 


トー タル レベ ル (TL) だ いう パラ メス メータ は ,。 音 長 や 音色 を キー スケ ー リ ング な ど で 制 御 す る た 
め の 総 音量 を 調節 で きま す . 0 か ら 127 の 範囲 で 設定 し 。 値 が 大 きい ほど 音量 は 大 きく な り ま す . 

各 オ ペレ ー タ は , 出力 する 波 の 周波 数 の 調整 を MUL, DT1, DT2 の 3 つの パラ メー タ で 行い 
ます 。 調整 する と き は DT2。DT1。MUL の 順に 行い ます . 


・DT2 … 周波 数 の 粗 調整 パラ メー タ で , 0 か ら 3 の 範囲 で 設定 する 
・DT1 … 周波 数 の 微 調整 パラ メー タ で , 0 か ら 7 の 範囲 で 設定 する 
・MUL … D12。 DT1 で 調整 し た 周波 数 の 倍率 を 0 か ら 15 の 範囲 で 指定 する 


音程 の 調節 は 主 に この 3 つの パラ メー タ で 行い ます . また , AMS は 各 オ ペレ ー タ ご と に 有効 か 
無効 を 設定 で きま す . 有効 の と き は LFO の 変調 が か か り ,。 無効 の と き は か か り ま せん . これ は 
AMS EN パラ メー タ で 設定 し ます .。 0 の と き 無 効 , 1 の と き 有 効 で す 。 
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人 ン 





ヨ . 品 マウ ス 


マウ ス に 関す る 関数 は 。 外部 関数 ファ イル MOUSE.FNC” に 納め られ て いま す ( 表 3.25) 


EL 証 還 3 四 間 E- 間 17 還 還 間 還 E- 間 EE" 生還 還 昌 明記 


マウ ス の 表示 , 初期 化 な ど を 行う (|=0 : マウ ス の 初期 | 。. よ ニー 
mouse(i) 化 ,i=1 : マウ スカ ー ソ ル の 表示 , i=2 : マウ スカ ー ソ こう: 本 が ー1 が 半 が 0 
SE ル を 消す . i=3 : マウ ス の 状態 を 返す , i=4 : ソフ トキ 
ー ボ ー ド の 表示 禁止 ) 
正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 
har 型 (n,b) 
msbtn(n, b, 1) 6 
Eu 大 値 を 超え た こと を 示す 
な 場合 ーー 
setmspoSs( x, y) lm 天 マウ スカ ー ン ソル の 位置 を 設定 する we ムー Ri 


それ 以外 は , 通常 0. エラ ー の 
x2, y2 ) 
0 な ら ば ドラ ッ グ され た こと を 
epeeCe) |e 更 |im 電 | マウ スタ カー ツル の 更生 の を xy に 計 す | ーー 
表 コ . ど 巳 マウ ス 関 連 の 関数 































と き は -1 を 返す 
マウ スポ タン が 指定 され た 状態 に な る まで の 時 間 を 返 | ニー ば 千里 間 の 遇 
9 5) | 時 守 | 芝 叶 | の の BI に 和 げ rr 





な お 。 表 3.25 の な か の パラ メー タ の 意味 は 次 の と お り で す . 


・ msbtn 関数 の パラ メー タ 


n … 0: ボタン が 離さ れる まで ンプ 1 : ボタ ン が 押さ れる まで 
b … 0: 右 プ 1 : 左 
t … 待ち 時 間 の 最大 値 (0 また は 1 の と き 。 待ち 続け る ) 


・msstat 関数 の パラ メー タ 
x。y …′ それ ぞ れ の 方 向 の 相対 移動 量 (一 128-- 十 127) 
bl  … 左 ボ タン の 状態 (一 1 : 押さ れ て いる 0 : それ 以外 の 状態 ) 
br … 右 ボ タン の 状態 (一 1 : 押さ きれ て いる ンプ 0 : それ 以外 の 状態 ) 


マウ ス を 使用 する 場合 に は , まず マウ ス の 初期 化 (mouse 関数 ) を 行い ます . マウ ス ボ タ ン を 
2 つと も プロ グラ ム 中 で 使い た い 場 合 は 。mouse (4) を 行っ て くだ さい 


・mouse (0) … マウ スカ ー ソ ル が 出 て いな い ゆい 状態 で , 右 ボタ ン を 2 回 クリ ッ ク す る と , 
ソフ トキ ー ボ ー ド が 使用 可能 に な る . 表示 され た キー ボー ド の キー に 
マウ スカ ー ソ ル を 移動 きせ て 左 ボ タン を 押す と ,。 対応 する キー が 押さ 
れ た と き と 同 じ 動 作 を する . 

・mouse (4) … ソフ トキ ー ボ ー ド は 使用 不可 能 に な る (マウ スカ ー ソ ル は 出 た まま ). 
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マウ スカ ー ソ ル の 座標 は mspos 関数 で 得る こと が で きま す . 引 数 と し て 指定 し た 変数 に , 現在 
の マウ スカ ー ソ ル の 座標 が は いり ます (リス ト 3.32)、. 


リス ト . コ ど mspos 関数 


1 NE も X。\ 

2: while 1 

3: mspos(x,y) 

4 : locate 9.29: print x,yj 
5・ endwhile 





マウ ス ボ タ ン の 状態 は msstat 関数 で 得る こと が で きま す . mspos 関数 と 同じ よう に 引数 に 指 
定 し た 変数 に 。 マ ウス の 相対 移動 量 と 2 つの マウ ス ボ タ ン の 状態 が は いり ます (リス ト 3.33). 


リス ト 3. づ 紀 msstat 関数 


・ Int dx,dy,bl,br 
・ SCreen 1,.3,1,1 
・ WOUSe( 4 ) 
・ while ] 
msstat(dx,dy,bl,br) 
locate 29.29: print " 左 ボ タン : 用 ボタン: ": 
locate 3,29 
1f bl=-] then print "ON "jelse print "OFF" 
locate 44,29 
1f br=-1 then print "ON "jelse print "OFF" 
endwhile 


*ー や (=- コ OO) の な CCO 一 





msSpos 関数 と msstat 関数 を 組み 合わ せ て 使う と き は ,。 マウ ス ボ タ ン を 押し て いる 間 に マ ウス 
カー ソル が 動い て し まう こと が ある の で 。 リ スト 3.34 の よう に する と よい で し ょ う 。 


リス ト 紀 . づ 4 mspos 関数 と mssta1t 関数 


2 1Dt XY,OX.dY。bl,bF 

2: Screen 1.3,1,1 

3: mouse(4) 

4: while 1 

5: msstat(dx,dy,bl,br) 

6: mspos(x,y) 

YA locate 29: print x,yi 

8: locate 29,29: print " 左 ボ タン : 右 ポ タン: "|: 
に locate 39,29 

19: if bl=-1 then print "ON ") else print "OFF" 
則 台 locate 44,29 

12: ijf br=-] then print "ON ") else print "OFF" 
13: endwhile 





3.10 ADPCM エディ タ の 製作 


また 。 マウ スカ ー ソ ル は msarea 関数 を 使っ て 移動 範囲 を 設定 で きま す (リス ト 3.35)。 


リス ト . コ ロロ msarea 関数 


2 入 放 計 芝 4 

・ SCreen 1,3,1,1 

・ moOuSe(4) 

・ mSarea(,,255,255) 

・ while ] 

mSpOS(x,y) 

locate 9.29: print X,yi 
・ endwhile 


Co =-=J1 の っ Cm 必 CO 憲 


3.](J ADPCM エディ タ の 製作 


これ まで X-BASIC の 特徴 と 文法 , 外部 関数 の 使用 法 を 説明 し て きま し た . いま まで の BASIC 
と は ひと 味 違っ た XX-BASIC の 姿 が 見 を えて きた で し ょ うか 、. 文法 や 関数 の 説明 で 使わ れ て いる 午 
い サ ンプ ルプ ログ ラム は , 大 き な プ ログ ラム を 書く と き の 基 本 に な る も の ば か り で す . 

それ で は 。 最後 に 又 -BASIC の 集大成 と し て ADPCM エディ タ を 紹介 し まし ょ う 。 

この プロ グラ ム は , ADPCM を 使っ て 音声 を 録音 し た り , 再生 し た りす る 作業 を 視覚 的 に 表示 
し て 行 お うと いう も の で す 。 そ し て 。 サ ンプ リン グ さ れ た デー タ の 波形 を 表示 し ,。 それ を 見 な が 
ら デ ー タ を 編集 (カッ ト だ け で す が ) する こと が で きま す . 最大 録音 / 再 生 時 間 は 3.9kHz モー ド 
で 約 33 秒 で す 。 も ちろ ん 。 できあがっ た デー タ (15.6kHz モー ド の デー タ の み ) は ,。 BEEP.SYS 
と 置き 換え て ビー プ 音 と し て 使う こと も で きま す . 


較 ブロ グラ ミン グ 上 の 注意 点 

録音 時 間 を 決め る の は 配列 の 型 と 要素 数 で す . この プロ グラ ム で は char 型 の 配列 を 使っ て い 
る ため 。 65,.536 バイ ト ま で し か デー タ を 扱え ませ ん . も っ と 録音 時 間 を 延ばし た いと き は int 型 や 
float 型 の 配列 を 使い ます . し か し , ADPCM デー タ は 1 個 当 た り 4 ビット な の で デー タ の 変換 を 
行う 関数 を 配列 の 型 に 応じ て 作ら な けれ ば な り ま せん . 

な お 。 音声 の 波形 表示 や 音声 の 一 部 を 切り 取る に は , ADPCM 方 式 の まま で は 扱い に くい の で 
Cut や 波形 の 表示 を する と き に は , ADPCM か ら PCM へ デー タ を 変換 し て 処理 し て いま す . そ し 
て , 再生 や 保存 を 行う と き は 本 来 の ADPCM に 変換 し ます . 

また 。 ファ イル と し て 保存 する と き に , サン プリ ング 周波 数 , 録音 時 間 , 何 の 音 な の か と いう 
コメ ント を 記録 し て お く た め の 管理 用 ファ イル (ADPCMED.DIR) を 作っ て いま す 。 これ は プロ 
グラ ム 中 で ,。 ファ イル の 一 覧 を 表示 し た りす る 際 に も 使わ れ て いま す . また , ファ イル 操作 は カ 
レン トディ レク トリ 上 の ファ イル に 限っ て いま す . 
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田 ブロ グラ ム の ボ ポイ ント 

X-BASIC で は 関数 の プロ グラ ミン グ が 大 き な 意 味 を 持っ て いる と いう こと は ,。 も うい うま で 
も あり ませ ん . 

関数 を うま く 作 る ポイ ント は 。 引 数 に し な けれ ば な ら な いも の は 何 か , 戻り 値 と し て 返す べき 
も の は 何 か を 十分 考え る こと で す . この プロ グラ ム で は ,。 の ちの ち 有 効 に 使え る 関数 と し て , プ 
ル ダ ウ ン メ ニュ ー 関 数 を 作っ て あり ます . これ は , メニ ュー 表示 用 の 初期 化 部 分 Gnitmennu 関数 ) 
と メニ ュー の 選択 や 操作 部 分 (menu 関数 ) か ら な り ま す . initmenu 関数 と menu 関数 は と も に 
引数 は 1 個 で す が 。 メニ ュー の タイ トル な どの 情報 を 配列 か ら 得 て いま す . 

関数 の 使い か た も それ ほど 難し く あ り ま せん . まず メニ ュー の 初期 化 関数 に メニ ュー 用 文字 列 
の は いっ た str 型 の 変数 名 を 指定 し て 呼び ます . メニ ュー 用 文字 列 は メニ ュー の タイ トル と な る 
文字 列 を スペ ー ス や “ 色 ? 記号 で 区 切っ た も の で す .。 スペ ー ス は メイ ン メ ニュ ー や サブ プ メ ニュ ー 
の 区 切り で ,“ ヾ 錠 ? 記 号 は グル ー プ と グル ー プ の 区 切り で す . 

右 ポ タン を 押し て 。 す ぐ 出 て くる メニ ュー を メイ シメ ニュ ー,。 メイ ン メ ニュ ー の どれ か に マツ 
スカ ー ソ ル を 合わ せる と 縦 に 出 て くる メニ ュー を サブ メニ ュー と 呼び ます . メイ ン メ ニュ ー1 個 
に つき 9 個 ま で サブ メニ ュー を 持て ます . こ の メイ ン メ ニュ ー1 個 と サブ プ メ ニュ ー9 個 の 組合 わせ 
を グル ー プ と 呼ぶ こと に し , 最大 9 グル ー プ まで 作れ ます . 

メイ ン メ ニュ ー は 左 か ら 順 に 1 か ら 9。 サブ メニ ュー は 上 か ら 順 に 1 か ら 9 の 番号 が つけ られ 
で て Vs ます 。 

menu 関数 や initmenu 関数 に 現在 の スク リー ン モ ー ド の 横文字 数 を 指定 し て 呼び 出し ます . こ 
の メニ ュー 表示 は 96 文字 , 64 文字 の 両方 で 使用 で きま す の で , 他 の プロ グラ ム へ の 応用 も か ん た 
ん に で きま す 。 戻り 値 は 2 桁 の 10 進数 で 。 次 の よう な 意味 を 持ち ます . 


(メイ ン メ ニュ ー の 番号 ) X10 十 (サブ メニ ュー の 番号 ) 


この 値 を 使っ て switch--endswitch で 。 それぞれ の 作業 を 行う 関数 へ 分 岐 き せれ ば よい で し ょ 


テー 


7 


田 人 ADPCM エディ タタ の 使い か た 

この プロ グラ ム を 動か す た め に は フリ ー エ リア を で きる だ け 大 きく し て お か な けれ ば な り ま せ 
ん 。 メモ リ が 標準 実装 の 場合 は 。 お よそ 600K バイ ト 程 度 は 確保 し て お いて くだ さい . 

さて , ADPCM エディ タ が 起動 する と 波形 を 表示 する ウイ ンド ウ と コン トロ ー ル パネ ル が 表示 
され ます (写真 3.1) あと は マウ ス を 使う こと で すべ て の 操作 を 行う こと が で きま す . マウ ス の 
右 ボ タン は メニ ュー の 選択 を 行う も の で , 左 ボタ ン は パラ メー タ の セッ ト や 波形 表示 の 移動 , ファ 
イル の 選択 に 使い まほ ます. 右 ボ タン を 押す と 画面 の 一 番 上 に メイ ン メ ニュ ー が 表示 され ます の で 。 
ボタ ン を 押し た まま メイ ン メ ニュ ー の File, Cmd。 Edit の 位置 に マウ スカ ー ソ ル を 合わ せま す 。 
する と , お の お の の サブ プ メ ニュ ー が 表示 され ます の で ,。 さらに 右 ボ タン を 押し た まま サブ メニ ュー 
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すい ご 【 1 コ 『i ドー 
sl っ | も ら 
れ J に いい [ ] | 
LJu」i 1 








P or アメ っ ーーーーーーーーーーーーーーーーー 
RIIII IT「h14 『 Tr " 商 中 

-  。 の 。 ij 

ド ト | 

っ OOEH ET 1 

1K1 バ 

【 * [ * 1 アコ 

# し 
| 


[1 

KR ロン 
7.SKHz | 
「 1H.4RH- | 
つも ytH ジ | 





写真 .] メニ ュー の 一 覧 


へ 移動 きせ 。 目的 の 項目 で 押し て いる ボタ ン を 離す こと で 選択 さき され ます . 

File は ADPCM デー タ を 格納 する ファ イル の 管理 を 行い ます . ADPCM エディ タ で は , ADPC- 
MED.DIR と いう 管理 ファ イル に 登録 きれ て いる ファ イル し か 扱う こと が で きま せん . も し , 登録 
され て いな い フ ァイル を 編集 し た い 場 合 は 。 NewFile を 選択 し て 管理 ファ イル に 登録 し て くだ さ 
い 。 た だ だし,。 登録 で きる ファ イル 数 は 32 個 ま で で す 。Load で ファ イル を 読み 込む と , 書き 込ん 
だ と き の パ ラメ ー タ に 自動 的 に セッ ト され, 波形 を 表示 し ます . Save で は , 現在 表示 され て いる 
波形 の デー タ を 録音 時 間 (Rec Count) で 指定 され た 長き の 分 だ け フ ァイル に 保存 し ます . 

Cmd は ADPCM デー タ の 録音 や 再生 を 行い ます . サブ メニ ュー に は Play と Rec が あり ます . 
Play は 現在 表示 きれ て いる 波形 の デー タ の 先頭 か ら Play Count で 設定 され て いる 長 さ だ け デ ー 
タ を 再生 し ます . Rec は Rec Count で 設定 され て いる 長 さ だ け 録 音 し ます . 

Edit は ADPCM デー タ の カッ ト を 行い ます . サ ブ メ ニュ ー は Cut の み で す . Cut を 選ぶ と 波形 
の 上 に 直線 が 現れ , 切り 取る デー タ の 始点 と 終点 を 指示 する カー ソル に な り ま す . まず, 始点 に 
カー ソル を 合わ せ て 左 ボ タン を 押し , 次 に 終点 に カー ソル を 合わ せ て , も う 一 度 左 ボ タン を 押し 
ます . 終点 の 指定 と 同時 に 切 取り が 始ま り ま す . 画面 に 表示 され て いる の は 480 個 分 の デー タ で 
す の で , 表示 範囲 外 の デー タ を 指定 し た い 場 合 は , 波形 の 窓 の 右 下 に ある 矢印 を マウ ス の 左 ボ タ 
ン で クリ ッ ク し て 。 波 形 の 見 える 位置 まで 移動 し て か ら 操 作 し て くだ さい . 右 矢印 は , 現在 表示 
され て いる 波 形 の 300 個 先 まで の デー タ を , 左 矢印 は 300 個 前 か ら の デー タ を 表示 し ます . 

また 。 波形 の 下 の Base Point に は , 波形 の 左端 が 何 番目 の デー タ か を , Data Point は 切り 取 
る デー タ の 位置 を 表示 し て いま す の で 。 指定 する 場合 の 参考 に な る で し ょ う . 

な お , デー タ の 量 が 多い (録音 時 間 が 長い ) 場合 は 処理 に 時 間 が か か り ま す . 画面 下 に あと と 


6/ 


3 章 X-BASIC プロ グラ ミン グ ガ イド 


の くら いか か る か と いう グラ フ が 表示 され ます の で , 目安 と し て くだ さい . 

波形 を 表示 する 窓 の 下 に ある スイ ッ チ 類 は , マウ ス の 左 ボ タン で 選択 し ます . ここ で は ,。 銀 音 
や 再生 する 時 間 の 長き ふ 。 サン プリ ング 周波 数 や , 再生 時 の 音声 出力 モー ド な どの 設定 を 行え ます. 
Rec と Play Count は 録音 時 間 と 再生 時 間 を 設定 し ます . 時 間 の 表示 の 右 に 矢印 が あり ます . 上 
向き の 矢印 に マウ スカ ー ソ ル に 合わ せ て 左 ボ タン を 押す と 増加 し , 下 向き の 矢印 だ と 減少 し ます . 
また ,。 こ の 時 間 の 設定 は , 秒 単 位 か ADPCM デー タ の 配列 の 数 か を 選ぶ こと が で きま す . 秒 単 位 
で 行う 場合 は Second の 部 分 に 。 デー タ の 個数 で 行う 場合 は Count に マウ スカ ー ソ ル を 合わ せ て 
左 ボ タン を 押し ます . 

Sampling Frequency は 録音 や 再生 時 の サン プリ ング 周波 数 を 設定 し ます . いずれ も , 5 つの サ 
ンプ リン グ 周 波数 の 表示 が ある の で 。 マウ スカ ー ソ ル を 合わ せ て 左 ボ タン を 押し て 選択 し ます . 
Sound Mode は 再生 時 の 音声 の 出力 先 ( 右 , 左 , 左右 , 出力 し な い ) を 選択 し ます . 


リス ト 紀 . づ ADPCM エ テ ィ タ 


1: /* 

2: /* constant definitions 

3: /* 

4: jnt ERR = -] 

5: int DIRMAX = 26 ………iti ADPCM エ ディ タ が 管理 する ファ イル の 最大 数 

6: str menusL89」 = File Load Save Rename Delete NewFile Quit & Cmd Play Reco | ,- 、_ 表示 用 文字 列 
rd & Edit Cut“ 

7: dim str frqstrt4)[7] = で” 3。.9KHz"。 "5.2KHz"、 "7.8MHz"。 "19.4KHz"。 "15。6K 
Hz'} サン プリ ング 周波 数 , 音声 

8: dim str sndstr(3)[11] = ("Cut sb 基 際 人 ", Ste { 出力 モー ド の 選択 用 文字 列 
reo(L+R)”) 

9: /* 

I9: /* variable definitions 

科 / 

12: int dirty = /* PCM data's flag 

13: int recfreq = 9 playfreq = /* 3.9KHz 

14: int tmd = /* Time 

15: int mode = 3 /* Cut mode その 他 の グロ ー バ ル 変 数 

16: int recsize = 凶 /* recorded file size 

17: int reccount = 9, playcount = /* recording or playing data size 

18: int xbase = 9, dataptr = 

19: /* 


29: dim char ADPCMdata(65535) 

21: dim int PCMdata(1, 65535) 

22: dim str menustr(9, 9) /* for ーー メニ ュー 表示 用 の 

23: dim int menustat(15) /* for menu()... 」 クロ ー バ ル 用 数 

24: dim str dirs(26)[22], st_smpfrq(26)[7], st_time(26)[5], comment(26)[24] 
25: /* 

26: /* const. and var. definitions for use ADPCM <-> PCM data converting 


27: /* 

28: dim int delta(48) = { 16, 17, 19, 21, 23, 25, 28 

29: 。 31, 34, 37, 41, 45, 5 55 

99: . 69, 66, 73, 89, 88, 97. 197 

31: 。 118, 139, 143, 157, 173, 199, 269 _ _ 
32: , 239, 253, 279。397, 337,371, 498 | PP データ FC テー タ 
99: , 449, 494, 544, 598, 658。 724,796 | アロ OO 

34: 876, 963,1969,1166,1282,1411.1552 } 

35: dim int Step(15) = { =-1。-1。-=-1。 =1。 2。4。 6。 8 

96: 1。 = 年 人 。 = こし ぬれ 遇 AB 


37: int apdeltanum, padeltanum 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー テ mo ピピ o 
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38・ 
39: 
49: 
41: 
42: 
43: 
44: 
4 に 
46: 
47: 
46: 
49: 
5: 
SM 間 
02: 
5K 人 
54: 
59・ 
56: 
7 5 
56: 
59: 
69: 
61: 
62: 
63: 
64: 
65: 
66: 
57・ 
68: 
69: 
79: 
Te 人 
76: 
が を 
74: 
75: 
76: 
が 
78: 
人 9: 
8: 
81: 
82: 
83: 
84: 
85: 
86: 
87: 
88: 


89: 
99: 
91: 
92: 
93: 
94 に 
95: 
db: 
7 
98: 
99* 
19W: 


3.10 ADPCM エディ タ の 製作 


/※ 

/* main 

/* 

error off 

mOuSe(4) : mouse(] ) 

mSarea(, 9, 511, 511) { 画面 の 初期 化 


dispinit() 
Initmenu(menuS) 
adcont() esseeseeesse ss ADPCM エ ディ タ 本 体 
width 96 時 
mOUSe() : mouse(2) 0 
end 
/※ 
/* menu Support functions.. . 
/* 
func jinitmenu(messistr) 
Int 1, J, hnUmm, SIZe, tmp 
Str meS 
1 = :」j」=9:num=g:size=5 
mes = strtok(mess, ””) 


99 99 


while meS <> 
if 」> 9 then { 
print “Error jn initMenu()" 
stop 


menuSstr(i, j) = mes 
tmp = strlen(mes) 
jf size < ttmp then size = tmp 
Jj=Jj+] 
If num < 」 then num = J 
mes = strtok("", ” の) 
if mes = "&”then { 
menustat(i) = j- 1 
。% 補 避 
if i>9then 
print "Error in initMenu()" 


stop 

) 

J=M 

mes = strtok(”。 ) 
endwhile 
menustat(i) = j- 1 
menustat(11) = size + 4 
menustat(12) = ji 
menustat(13) = num - 1 
menustat(14) = 
menustat(15) = 


for ij = to menustat(12) 

for 」=!to menustat(i) 
menustr(i, j) = menustr(j, J) + space$(size - strlen(menustr(i 
: 叶 9 

next 

next 

endfunc 

/* 

func menu(scrxiint) 

Int CX, Cy 

Int mmX, my 

HE %。 ああ も 症 

int field, num 

int ofjield, onum 

int ji, 』 

mS = mOuSe(3) 


メニ ュー 画面 表示 の た め の 
グロ ー バ ル 変 数 の 初期 化 
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191: 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
119: 
111: 
1128 
1 13・ 
114: 
115: 
116: 
1125 
118: 
119: 
12: 
121: 
122: 
123: 
124: 
125・ 
126: 
127・ 
128: 
129: 
139: 
131: 
132: 
139.: 
134: 
135: 
136: 
137/・ 
1368: 
駅 代 ま 


149: 
141: 
142: 
143: 


144: 
145: 
146: 
147: 
148: 
149: 
150: 
BY 本 
92: 
8 
154: 
15b: 
156: 
157・ 
158: 
159: 
160: 
161: 
162: 


)/0 


if ms = then mouse(1) 
CX = POS : cy = csrlin 
mSpOS(mX, my) 
setmspos(menustat(14), menustat(15)) 
color 11 
for ji = to menustat(12) 
locate j」 * menustat(11), 
print "jmenustr(i, の の: 
next 
print space$(scrx - menustat(11) * (menustat(12) + 1)) 
field = menustat(14) / 8 / menustat(11) : num = menustat(15) / 16 
ofield = field : onum = num 
if field <= menustat(12) then { 
for j = 1 to menustat(field) 
locate field * menustat(11) + 2, j 
print menustr(field, j) 
next 


repeat 
msstat(x, y, rgt, 1f{) 
SpOS(X, y\) 
field = x / 8 / menustat(11) 
hum = y / 15 
if field <> ofield then { 
if ofield <= menustat(12) then 【 
color 3 
for 」= 1 to menustat(ofield) 
locate ofield * menustat(11) + 2, j 
print space$(menustat(11) - 4) 
next 
color 11 


if field <= menustat(12) then { 
for 」 = 1 to menustat(fijeld) 
locate field * menustat(11) + 2, 」 
print menustr(field, j) 
next 


) else if num <> onum and ofield <= menustat(12) and onum <= menuS 
tat(13) then { 
locate ofield * menustat(11) + 2, onum 
print menustr(ofield, onum) 


if field <= menustat(12) and <num and num <= menustat(13) then 


color 3 
locate field * menustat(11) + 2, num 
prTint menustr(field, num) 
color ]] 
) 
ofjeld = field 
OnU = nUm 
until Ift = 9 
color 3 
| = ofield | 
for 」 = 1 to mehustat(i) 
locate ji * menustat(11) + 2, 』j 
print space$(menustat(11) - 4) 
next 
color 3 
locate 9, 
print space$(scrx ) 
locate cx, Cy 
mSpOS(x, y) 


メニ ュー 選択 


163: 
164: 
165: 
166: 
167: 
168: 
169: 
179: 
171: 
7 る: 
173: 
174: 
85 
176: 
1 た /・ 
178: 
179 バ 


189: 


181: 
162: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 
199: 
191: 
925 
193: 
194: 
195・ 
196: 
9/* 
198: 
199。 
299: 
29]1 : 
202: 
203: 
294: 
205: 
296: 
207: 
208: 
299: 
2109: 
有人 
42。 
213・ 
214: 
219、 
し 用 人 
217: 
216: 
219: 
229: 


パン 本 
の らら の 、 


ら の 9 
224 : 


menustat(14) = x 
menustat(15) = y 
SetmsSpos(mX, my) 
if field > menustat(12) then return(9) 
jf num < ] or menustat(field) < num then return(9) 
if ms = 中 then mouse(2) 
return((field + 1) * 19 + num) 

endfunc 

/* 

/* Display Init. 

/※ 

func dispinit() 
int i, J 
str st 
Screen 1, 1, 1, 1 
color[9,。 , , &HFFFF] : color 3 
console 9, 32, 
window(, 9, 511, 511) 
apage( り ) 
box( 16, 16, 495, 271, 8) : filI(32, 329, 159, 
fi11(192。 329。 9351。 431。 15) 5 和 Ti]1 1(984。 829。 479。 
pajnt(5, 5, 3) 
fil1(464, 272, 495, 287, 15) 
box( 32, 329, 159, 415, 8) : box( 192, 329, 351, 
box( 384, 329, 479, 399, 8) : line( 32, 336, 159, 
line( 32, 352, 159, 352, 8) : line( 32, 384, 159, 
line( 64, 352, 64, 415, 8) : line( 96, 336, 96, 
line(144, 352, 144, 415, 8) : line(192, 336, 351, 
1 he を 192。 86892 951。 952。 8) : 1Ene(272、 0986、 時 
line(384, 336, 479, 336, 8) : line( 16, 144, 495, 
psymbol1(32, 329, ” Rec/Play Count ", の ) 
symbol(32, 352, "REC ",。 1, 2 1, 9, の ) 
symbol(32, 384, "PLAY"。 1 2, 1, 8 9) 
psymbol1(32, 336, "Second ", 4) 
psymbol1(96, 336, " Count ", 9 の) 


for 」 = 1 to 13 

j = そる 〆 

line(152 - 」, 354+ 1 152 ょ 」, 354 + ョ 1 
6t152 - 1。、 882 - 1。 152 + 1。 382 一 j。 1] 的 ) 
line(152 - j, 385 + ij 152 + 」,」 385 +」 10) 
line(152 - jJ,。 414 - 1 152 +」, 414 - j。 1 の 
line(466 + j, 289 - j, 466 + 」。 289+」j, 19) 
line(494 - jij, 28 - j, 494 - 」, 289+j, 19) 


next 
psymbol1(192, 336, ” REC "* MM) 
psSymbol1(272, 336, "PLAY ”", の 
pSymbol1(192, 329, ” Sampling Frequency ", 9) 
dispfreq() 
for 」 = 1 to 4 
line(i * 1 + 16, 142, j * 1 吸 + 16, 146, 5) 
st = "+" ォ itoa(i * 1 釣 ) 
symbol(j * 1,。 148, st, 1, 1, 9 5, の 
next 
psymbol1(384, 329, ” Sound Mode ", の 
dispmode( ) 
disptime() 


415, 


9 , 


431 , 
SSD , 
S04 , 
SO 1 , 
SS , 
431, 
144, 


fiT1(16。 272、143、287。15) : 人 有 11(394。 272。 431。、287, 
psymbol1(16, 272, "Base Point:” + space$(5 - strlen(itoa(xbase))) + it 


oa(xbase), 4) 
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15) 
15 ) 


表示 の 初期 化 


15) 


psymbol1(394, 272, "Data Point:” + space$(5 - strlen(itoa(dataptr))) + 


itoa(dataptr), 4) 
vpage(15) 
endfunc 


/* 


』/』 
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ZZ6・ 
オイ 
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239: 
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292・ 
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238・ 
239: 
240: 
241: 
242: 
Z243: 
244: 
245< 
Z46: 
2 る 
Z46: 
249: 
250: 
291) 
7 っ 
203・ 
254: 
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Z659: 
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7 
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274: 
275: 
276: 
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279・ 
28: 
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284: 
285: 
286: 
287: 
288: 
2Z89: 


が 


/* display Sound-Output-Mode 
/* 
func dispmode() 
apage( り ) 
for ji =9to3 _ 
psymbol1(384, 336 + (ji * 16), sndstr(i), 音声 出力 モー ド の 表示 
next 
psymbol1(384, 336 + (mode * 16), sndstr(mode), 4) 
endfunc 
/* 
/* change Sound-Output-Mode 
/* 
func chmode(x, y) 


mode = (y - 336) \ 16 を 庫 出 力 モー ド の 変更 


dispmode( ) 
endfunc 
涼 基 
/* _ display Sampling Frequency 
/* 
func dispfreq( ) 
Int 」 
apage( り ) 
for i= 多 to 4 
pSymbol1(192, 352+ (ji * 16), ” " ェ ォ frqstr(i), 9) サン ジリ ジグ 
psymbol1(272, 352 + (ji * 16)," " ェ frqstr(i)、) 周波 数 の 表示 
next 
psymbol1(192, 352 + (recfreq * 16), ” " ェ frqstr(recfreq), 4) 
pSymbol1(272, 352 + (playfreq * 16), " リィ ェ frqstr(playfreq), 4) 
endfunc 
/ 
/* change Sampling Frequency 
func chfreq(x, y) 
int ji 
apage(!) 
switch (x - 192) \ 8 
case MM 
recfreq = (y - 352) \ 16 
break サン プリ ング 周波 数 の 変更 
CaSe 1 
playfreq = (y - 352) \ 16 
break 
endswitch 
dispfreq() 
disptime() 
endfunc 
/* 
/* Get Data Count Gain 
/* ネ 


func int getgain(freq) 
if tmd = then { 
switch freq 
case 
return(1959) 
caSse 1 
return(26 吸 ) 
CaSe 2 
return(3999) 
CaSe 3 
return(529) 
caSe 4 
return(789) 
endswitch 
) else return(1) 
endfunc 


1 秒 当 た り の ADPCM デ ー タ の 消費 量 ( バ イト ) を 得る 


290: 
291 
と 92 
Z93: 
294: 
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/* 
/* display Time or Count 
/* 
func disptime() 
Int j 
str data 
apage( り ) 
fill(65 , 353, 142, 366, 15) : fillI(65 , 385, 142, 398. 5 ) 録音 再生 時 間 ま た は 
i = getgain(recfreq) : data = jitoa((reccount + ji- 1) \j) PCM デ ー タ の 個数 を 表示 
psymbol1(64, 352, space$(19 - strlen(data)) + data, 4) 
j = getgain(playfreq) : data = itoa((playcount + 」 - 1) \ ji) 
psymbol1(64, 384, space$(19 - strlen(data)) + data, 4) 
endfunc 
/* 
/* change Time or Counter 
/※* 


func chtime(x, y) 
switch (y - 352) \ 16 


case 

reccount = reccount + getgain(recfreq) : break 
CaSe 1 

reccount = reccount - getgain(recfreq) : break 
CaSe 2 

playcount = playcount + getgain(playfreq) : break 
CaSe 3 

playcount = playcount - getgain(playfreq) : break 
endswitch 


If reccount <then reccount = 
If reccount > 65536 * 2 then reccount = 65536 * 2 
If playcount < then playcount = 


if playcount > recsize * 2 then playcount = recsize * 2 


for x = to 1 久 99 : next 
disptime() 
endfunc 
な 
/* change Time-mode 
/* tmd = 9...Seconds[+1 and -1] 
/* 1...Count of Array[+] and -1] 
/* 
func chtmd(x, y) 
apage(!) 
switch (x - 32) \ 64 
case MM 
tmd = 
psymbol1(32, 336, " Second ", 4) 
psymbol1(96, 336, "Count ", 9) 
psymbol1(64, 368, " Sec ", の 
psSymbol1(64, 49, " Sec ", の 
break 
CaSe 1 
tmd = 1 
psSymbol1(32, 336, ” Second ", の 
psSymbol1(96, 336, "Count ", 4) 
fillI(65, 369, 143, 383, 15) 
fil1(65, 4, 143, 414, 15) 
break 
endswitch 
disptime() 
endfunc 
が 
/* Mouse Cursor Position 
/* ネ 
func int poschk(x, y) 
X = ニ X\16 :y=y\16 


個数 ) の 切換 え 


録音 / 再 生 時 間 を 1 秒 澤 位 ま た は 
デー タ 1 個 単 位 で 変更 


録音 再生 時 間 の 表示 ( 秒 プ デー タ 


3 
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354: if 28<xandx<31andy= 17 then return(l) 
e() 

355: if 1 <xandx<19andy = 21 then return(2) 

356: ijf x =9and21<yandy<26 then return(3) 
) 

GO( if 11 <xandx<22and21<yandy< 27 then returii(4 ) 
) 

358: if 239 <x and x <3and29<yandy<25then return(5) 
) 

359: return(0) 

/ 

369: endfunc 

361: /* 

362: /* Execute Commands 

363: /* 

364: func int adcont() 

305: int x, y, L, KR 

36565: Int count, grTOup 

357・ Int 」, SIZe 

368: count = inford() 

369: m =M 

37: while count >= 

8371: msstat(x, y, L, R) 

372: mSpOS(x, y) 

9798 ijf R then { 

374: color 3 : cls 

375: group = menu(64) 

376: switch (group) 

た す ャ CaSe ]1 

378: i = selectfile(count) 

379: if ij = ERR then break 

389: size = adread(i) 

381: if size >= then { 

382: TeCSiZe = SIZe 

383・ Teccount = recsize * 2 

S84: playcount = reccount 

385: recfreq = val(st_smpfrq(i)) 

386: playfreq = recfreq 

387: disptime() 

388: dispfreq( ) 

389: adpcm2pcm(recsize * 2) 

399: dirty = 9 

391 2 xbase = 9 : dataptr = 

392: dispwave( ) 

393: ) 

394: break 

395・ caSe 12 

396: 」 = selectfile(count) 

の 9 すら if 」 = ERR then break 

398: if dirty then pcm2adpcm(recsize * 2) : 

399: adwrite((reccount + 1) \ 2, 

49M: infowr(count) 

491 : break 

492: caSe 13 

493: ij = selectfile(count) 

494: if ij = ERR then break 

495: ren(i) 

496: infowr(count) 

497: break 

498: case 14 

499: ij = selectfile(count) 

419: if ij = ERR then break 

411: ij = del(i, count) 

412: if ji >=gthen count = ji 





リノ 4 


へ へ 
ドコ 


5 


ゃ z 
ーー 


ーー 


MOVeWAV 


* chtmd() 
: cht ime( 


+ chfreq( 
/* chmode( 


\* nothing 


マウ スカ ー ソ ル の 位置 
を 判別 する 
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infowr(count) 
break 
Case 15 
1 = newfile(count) 
if j> then count = j 
infowr(count) 
break 
CaSe 16 
return( ) 
CaSe 21 
if dirty then pcm2adpcm(recsize * 2) : dirty = 
if playcount <= then break 
a_play(ADPCMdata, playfreq, mode, (playcount + 1) \ 2) 


break 

CaSe ZZ 
if reccount <= then break メニ ュー て で 選択 され た 
recsize = (reccount + 1)\2 コマ ンド の 実行 


a_rec(ADPCMdata, recfreq, recsize) 
adpcm2pcm(recsize * 2) : dirty = 9 
if playcount > reccount then playcount = reccount 
xbase = : dataptr = 
disptime() : dispwave( ) 
break 

case 31 
datacut() 
dirty =not 
break 

endswjitch 


) else if L then { 


switch poschk(x, y) 

caSe 1 : movewave(x, y) : break 
case 2 : chtmd(x, y) : break 
caSse 3 : chtime(x, y) : break 
case 4 : chfreq(x, y) : break 
caSse 5 : chmode(x, y) : break 
endswitch 


for i=9to9 : beep : next 


/* read files′ Information 


func jnt inford() 

fp 

Str dr, Smp, tm, CmMm 
fopen("ADPCMED.DIR", "Tr”) 
iffp <then ( 


fopen("ADPCMED.DIR", "c") 


if fp <then 5 


errdisp( Can 't create Directory-File") 
return(ERR) 


) 
fclose(fp) 
return() 


1 = to DIRMAX 管理 用 ファ イル か ら 情 報 を 得る 
freads(dr, fp) 

freads(smp, fp) 

freads(tm, fp) 

freads(cmm, fp) 

dirs(i) = dr 

st_smpfrq(i) = smp 

st _time(i) = tm 


】/5 
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477・ 
478: 
479: 
48: 
481: 
482: 
483: 
484: 
485: 
486: 
487・ 
488: 
489: 
499: 
491: 
492: 
493: 
494: 
495: 
496: 
497・ 
498: 
499 
509: 
591: 
5M2: 
o93: 
594: 
505: 
506: 
507・ 
508: 
509: 
51: 
911: 
9 上 の 。 
513 
514: 
OL9・ 
o16: 
o17・ 
o16: 
OS 
520: 
5 ・ 
O の 2: 
OZ③・ 
0Z4: 
De2o: 
526: 
7 
926・: 
528* 
530: 
9S」・ 
992. 
2RK る 
534: 
090: 
536・ 
037 
096: 
539: 
54: 


】/6 


comment(i) = cmm 
if feof(fp) <> then break 
hext 
fclose(fp) 
return(i) 
endfunc 
/* 
/* write files Information 
洲 ※ 
func int infowr(cnt) 
ED も は 。 半 。 肖 
SE CFPIT 
crlf = chr$(13)+chr$(19) 
fp = fopen("ADPCMED.DIR", "c”) 
if fp < 上 then 【 
errdisp("Can't open Directory-File") 
return(ERR) 


CI も = GhN も = 1 
for i = to cnt 
fwrites(dirs(i) + crlf, fp) 
fwrites(st_smpfrq(i) + crlf, fp) 
fwrites(st_time(i) + crlf, fp) 
fwrites(comment(i) + crlf, fp) 
next 
fwrites(crlf + chr$(&H1A), fp) 
fclose(fp) 
return(cnt + 1) 
endfunc 
/* 
/* show one file 
/* 
func adir(py, cnt) 
locate 1, py 
print space$(62) 
locate 1, py 
print dirs(cnt) 
locate 25, py 
print frqstr(val(st_smpfrq(cnt))) 
locate 33, py 
print space$(5 - strlen(st_time(cnt))):st_time(cnt) 


管 せ 用 ファ イル に 情報 を 書き 込む 


1 ファ イル 分 の ディ レク トリ 表示 


locate 39, py 
print comment(cnt) 
endfunc 
/* 
/* show all files 
/* 
func dir(py, cnt) 
int j 
locate 1, py : color 11 
print "Filename Smp.Frq. Time Comment 
py = py + 1 aa ー 
color 11 病理 用 ファ イル に 登録 され て いる すべ て の 
ie で Es et ファ イル の ディ レク トリ を 表示 
adir(py + i, 1i) 
next 
print 
endfunc 
/* 
/* select a file 
/ ネ 


func int selectfile(cnt) 
6 で の 二 、 
Int pt, opt 


o41: 
542・ 
0 は ・ 
o44: 
o45: 
o45: 
547: 
946: 
o48・ 
559: 
551: 
00Z: 
bb3: 
o04 : 
O0O・ 
DO06: 
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1 
o09: 
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552: 
obS・ 
Sb4: 
5655: 
566: 
5657: 
o656: 
559: 
57: 
9 
人 
573: 
コル 
O7O・ 
576: 
57/・ 
9078: 
oO79・: 
o8: 
581: 
082・ 
583: 
964: 
585: 
o66: 
06 /・ 
588: 
O69・ 
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991: 
592: 
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594: 
095: 
oJ6・ 
597・ 
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599: 
69M: 
691: 
692: 
693: 
694: 
695・: 


vpage() 
opt = -] 
dir(2, cnt) 
『epeat 
msStat(x, y, L, R) 
MSpOS(X, y) 
Dt=VY\15- み =] 
f 人 = opt then continue 
if (9 <= opt) and (opt < cnt) then 5 
color 1 : adir(opt + 2 + 1], opt) 
if (9 <= pt) and (pt < cnt) then 
color 3 : adir(pt+ 2 + 1, pt) 


Opt = pt 
until L 
COlor 3 : cls 
vpage(15) 


if (9 <= pt) and (pt < cnt) then return(pt) 
return(ERR) 


endfunc 

/* 

/* New File 

/* 

func jint newfile(cnt) 
Int fp, size 
str crlf, com[23] 
vpage(9) 
mSgclr() 


if cnt > DIRMAX then { 
errdisp("No filename area') 
vpage(15) : return(ERR) 


crlf = chr$(13)+chr$(19) 
locate 29, 9 
print "Input New-File's Filename" 
dirs(cnt) = left$(fname(19), 22) 
if djirs(cnt) = ”"” then vpage(15) : return(ERR) 
for fp =9tocnt - 1 
if dirs(fp) = dirs(cnt) then 5? 
vpage(15) 
errdisp( Duplicate file name") 
return(ERR) 


next 
locate 29, 11 
print “Comment Please (24 chars)” 
locate 18, 12 
Iinput com 
color 3 : cls : vpage(15) 
if com = ” then com = ”“ 
comment(cnt) = left$(com, 24) 
st_smpfrq(cnt) = itoa(recfreq) 
fp = fopen(dirs(cnt), "r”) 
jf fp <9then fp = fopen(dirs(cnt), "c") 
jif fp <then { 
errdisp("Can {t Create New-File") 
return(ERR) 


) 
| = fseek(fp, 2) 
if j」<then ji = else if ji > 65536 then ij = 65536 
st_time(cnt) = itoa(i) 
fclose(fp) 
return(cnt + 1) 
endfunc 


3.10 ADPCM エディ タ の 製作 


管 叶 用 ファ イル に 登録 する 


】// 
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/* 
/* read ADPCM data from a file 
/* 
func int adread(i) 
Int fp, rSize 
fp = fopen(dirs(i), "Tr”) 
if fp<then 【 
errdisp("Can't Open for READ") 
return(-]1 ) 


locate 9, 29 : color 3 : print "Now Reading" ーー 
rsize = fread(ADPCMdata, 65536, fp) ADPCM デ ー タ の 読込 み 
fclose(fp) 
locate 9, 29 : color 3 : print space$(63) 
ifrsize <then ( 

errdisp("Can'{t Read") 

return() 


return(rsize) 
endfunc 
/* 
/* write ADPCM data to a file 
「 よ ・ 
func int adwrite(size, i) 
Int fp, wsize 
fdelete(dirs(i)) 
fp = fopen(dirs(ij), "c”) 
jif fp <then { 
errdisp("Can'{t Open for WRITE”") 
return(ERR) 


) 

if size > dskf(9) then { 
errdisp("Disk full!”) 
return(ERR) 

ADPCM デ ー タ の 書込み 
locate 9, 29 : color 3 : print "Now writing" 
wsize = fwrite(ADPCMdata, size, fp) 
fclose(fp) 
locate 9, 29 : color 3 : print space$(63) 
if wsijze < size then { 

errdisp( "Can t Write") 
return(ERR) 


st_smpfrq(i) = jitoa(recfreq) 
st_time(i) = itoa(size) 
return(size) 
endfunc 
/ ネ 
/* rename a file 
拓 
func ren(i) 
sti fn 
vpage(!) 
mSgclr( ) 
locate 23。 9 
print Enter New Filename" 
fn = fname(19) 
if fn = ” then ypage(15) : return(9) 
frename(dirs(i), fn) 
dirs(i) = fn 
color 3 : cls : vpage(15) 
endfunc 


ファ イル 名 の 変更 
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/* 
/* delete a file 
/* 


func jnt del(ji, cnt) 
Int J 
for j」= itocnt - 2 
dirs(j) = dirs(j+ 1) 
st_smpfrq(j) = st_smpfrq(j+ 1) 
st_time(j) = st_time(j+ 1) 
comment(j) = comment(j+ 1) 
next 
return(cnt - 1) 
endfunc 
/※ 
/* open meSsSsage window 
/* 
func msgclr() 
Int ji 
color 11 
for i= ぼ to 15 
locate 16, 8 + ji : print space$(32) 
next 
endfunc 
/* ネ 
/* print erFOT-meSSage 
/* 
func errdisp(mesistr) 
mSgclr() : beep | 
locate (64 - strlen(mes)) \ 2, 15 : print mes 
endfunc 
/*※ 
/* jnput filename 
/* 
func str fname(y) 
str fn[21] 
locate 18, y : linput fn 
if fnchk(fn) = ERR then 【 
errdisp("Can't use path”) ファ イル 名 の 入力 
return(””") 


ファ イル の 削 座 


メッ セー ジ 出 力 用 の 
ウィ ンド ウ を 開く 


エラ ー メ ッ セ ー ジ の 表示 


return(fn) 
endfunc 
/* 
/* check file-name 
まい 
func jnt fnchk(fni:str) 
if strchr(fn。 | ) >= then return(ERR) 
if strchr(fn. /) >= 9 then return(ERR) 
jf strchr(fn, &H5C) >= 9 then return(ERR) ファ イル 名 中 に 無効 な 文字 が な いか 調べ る 
if fn = ”” then return(ERR) 
Feturn( り ) 
endfunc 
/* 
/* display Wave Form of PCM data 
/* 
func dispwave() 
Int 」, Ivy, olvy 
apage( 1 ) 
fil1(16, 16, 495, 271, の 
window(16, 16, 495, 271) 
for ji = to 479 波形 の 表示 
if xbase + j >= recsize * 2 then break 
line(i + 16, 144, ij + 16, 144 - getlevel(xbase + j) \ 8, 13) 
next 


7/9 
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バア 
739・ 
734: 
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787・ 
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789: 
790: 
に か 
739 の 。 
793: 
794: 


jif i< 489 then line(i + 16, 16, i+ 16, 271, 11) 
window(, 9 511, 511) 
endfunc 
/* ネ 
/* move Wave Form of PCM data 
/* 
func movewave(x, y) 
if reccount < 48! then cls : beep : return(ERR) 
switch (x - 464) \ 16 
case 
xbase = xbase - 3 呈 
if xbase < then xbase = 


break 
CaSe 1 
xbase = xbase + 3 EE 
if xbase > reccount - 1” then xbase = reccount - |W 0 の 
break 
endswitch 
apage( り ) 
fil1(96, 272, 143, 287, 15) 
pSymbol1(96, 272, space$(6 - strlen(itoa(xbase))) + jitoa(xbase). 4) 
color 3 
locate 9, 29 : print "Moving Now..… 
dispwave() 
locate 9, 29 : print space$(14) 
endfunc 
/* 
/* move Data-Pointer 
/* 
func int dptrmove(msx) 
HL X。 V。 OX%。 dX。 dV。 し 。 R 
str dt 
mSarea(msx, 15, 495, 271) 
mSpOS(ox, dy) 
『epeat 
apage(2) 
msstat(dx, dy, L, R) 
mSpOS(X, ゞ ) 
line(ox, 16, ox, 271, 9) 
dataptr = xbase + x - 16 
if dataptr >=recsize * 2then dataptr = recsize *2- ] 
X = dataptr - xbase + 16 
line(x, 16, x, 271, 9) 
dt = itoa(dataptr) 
apage( り ) 
fil1(384, 272, 432, 287, 15) コー ボット 著 目 科 
0 272, space$(6 - strlen(dt)) + dt, 4) デー タ 位置 の 表示 
until L or KR 
mSarea(, 9, 511, 511) 
apage(2) 
line(ox, 16, ox, 271, 
apage(3) 
1ine(ox, 16, ox, 271, 9) 
if R then 5 
apage(3) 
fil1(16, 16, 495, 271, の) 
return(ERR) 
repeat 
mSstat(dx, dy, L, R) 
until 上 L = 
return(dataptr) 


795: endfunc 
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796: 
ドリ た 
798: 
799: 
89M: 
891: 
892: 
893: 
894: 
805: 
896: 
897: 
898: 
899: 
810: 
811: 
812 
913: 
814: 
GS 
816: 
817: 
818: 
619: 
820: 
621 : 
6822: 
623: 
82Z4: 
625: 
826: 
827: 
8268: 
629: 
839: 
831: 
832: 
8633: 
634: 
835・ 
635b・ 
637・ 
838: 
639: 
849: 
841: 
842: 
643: 
644: 
845: 
646: 
847: 
648: 
849: 
859: 
851: 
852: 
8653: 
854: 


3.10 ADPCM エディ タ の 製作 


/* 
/* cut PCM data 
『・ 
func datacut() 
も ま 。 ま 。 KK。 |。 0D。 9126 
Int src, dst 
src = dptrmove(16) 
if src < then return() 
dst = dptrmove(src - xbase + 17) 
if dst < 中 then return() 
apage(3) 
filI(src - xbase + 17, 16, dst - xbase + 15, 271. 4) 
locate 9, 29 : print “Cutting Now..…" 
SIZze = TeCcSijze *2- dst - ] 
jf size > then { 
dst = dst + ] 
if size <= 64 then 5? 
SiZe = SIZe - 1 
for i=9to size 
putlevel(src + ij, getlevel(dst + ji)) 
next 
SiZze = Size + ] 
) else { 
n 
| 
] 
while ji 
for 


Sijze\64 - ] 
(n+ 1) * 64 


デー タ の カッ ト 
< | 
J = to 
k = ji+ 間 
putlevel(src + k, getlevel(dst +k)) 

nhext 
1 =」+n+ ]1 
PIN も まま "5 
endwhile 
n = ji + (size mod 64) - 1 
for 」 = i to n 
putlevel(src + ji, getlevel(dst + ji)) 
next 


) 


locate 9, 29 : color 3 : print space$(128) 
TeCccount = SrC + SIZe 
if playcount > reccount then playcount = reccount 
recsize = (reccount + 1)\2 
disptime() 
apage(3) 
fill(16, 16, 495, 271, の ) 
dispwave( ) 
endfunc 
/* 
/* get ADPCM data 
/* 
func jnt getdata(dtp) 
if dtp and 1 then { 
return((ADPCMdata(dtp\2) shr 4) and 15) 
) else 【 ADPCM デ ー タ を バッ ファ か ら 1 個 と り 出 す 
return(ADPCMdata(dtp\2) and 15) 


endfunc 
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855: 
856・ 
857・ 
8568: 
859: 
869: 
861: 
862: 
653: 
864: 
865: 
866: 
867・ 
656・ 
669: 
879: 
871: 
872: 
873: 
874: 
8 お 7: 
876: 
877・ 
678: 
679: 
880: 
681・: 
882・ 
8683 
884: 
885: 
886: 
887・ 
688: 
8689: 
899: 
691: 
692: 
693: 
894: 
895: 
896: 
897: 
898: 
8699: 
99M: 
991: 
992: 
993: 
34 : 
995: 
906: 
997・ 
908: 
99: 
910: 
911: 
2 
に 当世 か 
914: 
じ DIY を 
9J16: 
917:・ 
0 


/* 
/* put ADPCM data 
/* 
func putdata(dtp, data) 
Int ptr 
ptr =dtp\2 
if dtp and 1 then ae uo 
“ ADPCNGateCpt = (data shl 4) or (ADPCMdata(ptr) and SHF) 1 っ ンー 和 asa 
else 


ADPCMdata(ptr) = (ADPCMdata(ptr) and &HF9) or data 


endfunc 
/* 
/* get PCM level 
/* 
func jnt getlevel(dtp) 
if dtp < 65536 then { 
return(PCMdata(, dtp)) 
) else { PCM デ ー タ を バッ ファ か ら 1 個 と り 出 す 
return(PCMdata(1, dtp - 65536)) 


endfunc 
/* 
/* put PCM level 
/* 
func putlevel(dtp, level) 
if dtp < 65536 then { 
PCMdata(!, dtp) = level 
) else { PCM デ ー タ を バッ ファ に 1 個 だ け 書 き 込む 
PCMdata(1, dtp - 65536) = level 


endfunc 
/* 
/* convert from PCM data to ADPCM data 
/* 
func pcm2adpcm(size) 
int jjJ,k, |, n, data, Ivy, olv = 
locate 9, 29 : color 3 : print "Converting Now.... (PCM -> ADPCM)" 
padeltanum = 9 : apdeltanum = 
if size <= 64 then 【 
Size = Size - 1 
for ij= ぼ to size 
lv = getlevel(i) 
data = enADPCM(Iy - olv) 
putdata(i, data) 
ly = oly + deADPCM(data) 
olv = Ivy 


り to n 
I 宣 当 
lv = getlevel(k) 
data = enADPCM(ly - olv) 
putdata(k, data) 
lv = oly + deADPCM(data ) 
olvy = Ivy 
nhext 
[ニャ 前 キ 1 
EEE 
endwhile 


1 日 ーー 一 


1 ぐ 
Or J 
k 


PCM デ ー タ を ADPCM デ ー タ に 識 換 
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919: 
929: 
921 1 
922・ 
りさ 。 
924: 
920・ 
J26・ 
92/・ 
926: 
929: 
939: 
99 1 
992・ 
933: 
934: 
935・ 
9365: 
937・ 
936: 
939・ 
940: 
941: 


J42: 
943: 
944: 
945: 
946: 
947: 
948: 
949: 
950: 
361 
95Z: 
999・ 
954: 
909: 
956: 
9b7 
958: 
959・ 
96: 
961: 
962: 
953・ 
954: 
9b5: 
965: 
907・ 
968: 
969・: 
970: 
1 
9 の 。 
973: 
74 
975: 
976: 
97/・ 


nh = ji + (size mod 64) - 1 
for ji = j to n 

ly = getlevel(i) 

data = enADPCM(lv - olv) 


putdata(i, data) 
lv = olv + deADPCM(data ) 
oly = Ivy 

next 


locate 9, 29 : color 3 : 
endfunc 
/* 
func jint enADPCM(def ) 

int d, data = 


if def < then def = abs(def): data 
d = delta(padeltanum) 

if def > dthen def = def -d : data 
d =d\2 

jf def >dthen def =def - d : data 
d =d\2 

if def > dthen def = def - d : data 
padeltanum = padeltanum + step(data) 


if padeltanum > 48 then padeltanum = 
deltanum = 

return(data) 
endfunc 
/* 
/* convert from ADPCM data to PCM data 
/* 
func adpcm2pcm(size) 


int ji, J, k, 1, n, level = 


3.10 ADPCM エディ タ の 製作 





print space$( 128) 


= 8 

= data or 4 

= data or 2 PCM デ ー タ の 差分 を 
ADPCM デ ー タ に 変換 

= data or 1 


48 else if padeltanum < 9 then pa 


locate 7 29 : color 3 : print "Converting Now.... (ADPCM -> PCM)" 


apdeltanum = 

if size <= 64 then { 
Size = Size - 1 
for i =to size 


level = level + deADPCM(getdata(i)) 


putlevel(i, level) 
next 
) else { 
nh = size\64 - 1 
1 =(n+ よ 7 *64 
1i = 
while ij< | 
for J = 
KK, ミニ 
level = 
putlevel(k, level) 
next 
1 
print 
endwhile 
n = j + (size mod 64) - ] 
for i = i to n 


0 


り 
補 当 


0 : で キ 


1+n+ ] 
29 6 


ADPCM デ ー タ を 
PCM デ ー タ に 変換 


level + deADPCM(getdata(k)) 


level = level + deADPCM(getdata(i)) 


putlevel(j, level) 


next 


locate 9, 29 : color 3 : 
endfunc 


pTint space$(128) 
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978: /* 
979: func jnt deADPCM(data ) 
980: Int d, def = 上 
981: d = delta(apdeltanum) 
9J82・ jf data and 4 then def = d 
983・ dd =d\2 
984: if data and 2 then def = def + d 
985: d =d\2 の 2 の 二 
986: ifdataand1thendef=def+d Sm 
987: d =d\2 差分 に 変換 
988: def = def + d 
989: apdeltanum = apdeltanum + step(data ) 
99: if apdeltanum > 48 then apdeltanum = 48 else if apdeltanum < then ap 
/ deltanum = 
991: if data and 8 then return(-def) 
992: return(def) 
9J93: endfunc 
994: /* 
995: /* print symbol 1 x 1 
996: /* 
997: func psymbol1(x, y, mesistr, cl) 
998: symbol(x, y, mes, 1, 1, 1, cl, の 


999: endfunc 





(C 王 ) C Compiler PRO-68k を お 持ち の 方 は , こ の プロ グラ ム を コン パイ ル す れ ば ば , 
快適 な 速度 で 使用 する こと が で きま す . その 場合 ,。 Human68k の コマ ンド 
の 0 の よう 人力 し そ て だ きい 。 


A> CC グ hIOK プ sIOK ADPCM.BAS 


94 





9 表 








XBBOOO の ブ プ ログ ラ ング 環 


XOOO 上 で , 本 格 的 な プロ グラ ミン グ を 始め よう と 思っ て 

いる 方 に こっ て は , HumanB8kK の シス テム ディ スク に 付属 の ソ 

_。 。 フト ウェ ア だ け で は 十分 で は あり ませ ん . そこ で ,「C Compiler 

。。-、 。- PO-BBk」 と いう ソフ トウ ェ ア 開 発 キ ッ ト が 別売 で 用 意 さ れ て 

( いま す . この パッ ケー ジ を 購入 する こと で , 優れ た 開発 環境 を 手 に 
入れ る こと か で きま す . 

.。 : こ の 章 で は , この バッ ケー ジ に 語 ま れ て いる 環境 を 健 敵 する こと 


な < も も ! 


4.| パッ ケー ジ の 内 容 を 確か め る 


4.] パッ ケー ジ の 内 容 を 確か め る 


C Compiler PRO-68k に は 。C じ コン パイ ラ は も ちろ ん の こと 。 ソフ トウ ェ ア 開 発 に 欠か すこ と 
の で き な い ツー ル 類 。 ライ ブラ リ 群 が 付属 し て いま す .。 これ ら を うま く 使 いこ な す た め に 。 と り 
あえ ず パ ッ ケ ー ジ の 全角 を な が め て みる こと に し まし ょ う . 


.1.1 つの 言語 処理 系 

言語 処理 系 と し て ,C コ ン パ イラ (X-C), X-BASIC か ら C へ の コン バー タ (BASTOC), X 
-BASIC イン ター プ ブリタ, アセン プラ と いう 4 つが 含ま れ て いま す . これ ら の 言語 は 。 プ ログ ラム 
の 性 質 に 応じ て ,。 次 の よう に 使い 分 ける こと が で きま す . 


・C … 比較 的 大 き な プ ログ ラム の 記述 に 向い て いる 

・X-BASIC イ ンタ ー プ リタ … カッ ト ア ンド トラ イ を し な が ら プ ログ ラム で きる 
・BASTOC … 区 -BASIC で 作っ た プロ グラ ム を コン パイ ル し 。 高速 化す る こと が で きる 
・ ア セン プラ … より 細か な 処理 。 そし て 高速 性 や コン パク ト さ を 追求 し た プロ グラ ム を 記 


述 す る こと が で きる 


そし て ,。 も っ と も る 特徴 的 な こと と し て , これ ら の 言語 を 有機 的 に 結び つけ て 扱う こと が で きる 
環境 が 提供 され て いる 点 を あげ られ ます . つま り , 1 つの プロ グラ ム 中 で も , その モジ ュー ル の 性 
質 に よっ て 最も 適し た 言語 で プロ グラ ム す る こと が で きる よう に な る わけ で すこ うし た 環境 は 。 
これ まで の 開発 パッ ケー ジ で は 実現 きれ て いな か っ た も の で あり , X68000 を 使う 上 で 見 逃 せ な 
い 特 徴 と いう こと が で きる で し ょ う . 

な お , これ ら の 言語 処理 系 は , 各々 単独 で 動作 する わけ で は あり ませ ん の で , 通常 目 に 触れ て 
いな い フ ァイル を むやみ に 消し た りす る と 動作 し な く な る こと も あり ます 。 依存 関係 を 図 4.1 に 
示し て お きま す . この 図 は , 上 位 の 言語 処理 系 は 下位 の 言語 処理 系 に 依存 し て いる と いう こと を 
表し て いま す . 


BASTOC 
コン バー タ 
X-BASIC 
zz | 
X68000 の の 
の レス 


4.1 4 つ の 言語 間 の 相互 依存 関係 
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圏 じ コン バイ ラ 

も と も と CO 言語 は 。 その バイ ブル と で も いう べき 。 B.W.Kernighan & D.M.Ritchie の 「The 
C Programming Language」 (石田 晴久 訳 「 プ ログ ラミ ング 言語 C」, 共立 出版 。 1981) で 解説 き 
れ て いる 仕様 を 基本 と し て いま し た が , 各社 が 製品 化 の 段階 で 独自 の 拡張 を 施し た こと も あり , 
現在 で は よほど 意識 し て プロ グラ ミン グ し な い 限 り , 完全 な 移植 性 は 失わ れ て し まっ た と いっ て 
も 過言 で は な いで し ょ う 。 

こう し た 状況 を 解決 する た め に , アメ リカ で は `~ANSI 仕様 "と いう 規格 の 制定 作業 が 進め られ 
て いま す . ANSI と は , 日 本 の JIS に 相当 する 規格 で あり , 仕様 が 決定 され た あと は 各 ソ フト ウェ 

会 社 と も , この 仕様 に 準拠 し た C 言 語 を 開発 する こと に な る で し ょ う . 

表 4.1 に ^K&R の C” と ヾ X-C7?。 そし て ヾ ANSGI 仕様 (暫定 版 ) の C” の 相違 点 を あげ て お 
く と を 人 蓄 し まし ょ う . 










VOId 


Sidned 


COnst 


ネ ま は キー ワー ド と し て 定義 され て いる が , 使え な い 


表 4.1 KSEH, X-, ANSI, の 仕様 比較 (概略 ) 


X-C も 基本 的 に は ANSI の 仕様 に 沿っ た 機能 を 持っ て いま す が , const。 volatile 宣言 の よう に 
サポ ー ト され て いな い 機 能 も あり ます . し か し , 予約 語 と いう 扱い に な っ て いま す の で ,。 今後 の 
バー ジョ ン ア ッ プ が 期待 で きま す . 

また , じ コンパイラ の 多く は , コン パイ ル の 作業 に か か る 時 間 を 短 す る た め , アセ ンプ ブラ を 使 
わ ず に , 直接 オブ プ ジ ェ クト を 生成 する こと が で きる よう に な っ て いま し た . し か し , X-C コン パ 
イラ で は アセ ンプ ブラ の ソー スプ ログ ラム まで し か 生成 せ ず 。 オブ ジェ クト の 生成 は アセ ンプ ブラ に 
まかせ て いま す . 

X-C は 表 4.2 の よう な いく つか の プロ グラ ム か ら 成 り 立 っ て いま す . これ ら の プロ グラ ム は C 
Compiler PRO-68k の シス テム ディ スク の ,。 CC と いう ディ レク トリ の 下 に 格納 され て いま す . 
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4.| パッ ケー ジ の 内 容 を 確か め る 


| CC1.X | CCOX が 作り 出し た 構文 木 か ら アセ ンプ ラ の プロ グラ ム の 作成 
| CC2.X | 作成 する プロ グラ ム の 最適 化 。 


表 4. 己 コン パイ ラ の 構成 







田 X-BASGIC イン ター プリ タ 

X-BASIC( バ ー ジ ョ ン 2.00) は 。 Human68k の シス テム ディ スク に 付属 し て きた 双 -BASIC 
(バー ジョ ン 1.00) と 比べ 文法 的 な 相違 は な いも の の ,。 浮動 小数 点 演算 と FM 音源 関係 の 命令 を 処 
理 す る 内 部 的 な 方 法 が 異な っ て いま す . バー ジョ ン 1.00 で は ,。 浮動 小数 点 演算 は X-BASIC 本 体 
内 に , FM 音源 関係 の 命令 は 外部 関数 の ファ イル (MUSIC.FNC) に 組み 込ま れ て いま し た が 。 バ ー 
ジョ ン 2.00 で は 。 デ バイ ス ド ラ イ バ で 処理 する よう に 統一 され て いま す .。 この よう な 方 式 に する 
こと で ,。 ハー ドウ ェ ア の 変更 が あっ た 場合 で も , 処理 系 や 外部 関数 を 変更 する こと な くそ れ に 対 
応 す る こと が で きま す 。 

X-BASIC 関連 の ファ イル は 。C Compiler PRO-68k の シス テム ディ スク の BASIC2 と いう 
ディ レク トリ の ト 下 に 格納 され て いま す ( 表 4.3). 





| BASIC.X 。 | X-BASIC イ ンタ ー プ リタ の プロ グラ ム フ ァ イル 
X-BASIC イン ター プリ タ の コン フィ ギュ レー ショ ン フ ァイル 












表 4. コ X-BASIC イン ター プリ タ の 構成 


田 選 A へ ご DC コン バー タ 
BASTOC コン バー タ は ,。 構造 化 プ ログ ラミ ング が で きる と いう XX-BASIC の 特徴 を 活か し て 
記述 し た 多 -BASIC の プロ グラ ム を 。 そ の まま し C 言 語 の ソー スプ ログ ラム 変換 し ます 。 C 言語 の 
プロ グラ ム に な っ て し まえ ば , 他 の ファ イル で 定義 し た CC 言語 の 関数 や ライ ブラ リ 内 の 関数 を 呼 
び 出 すこ と が で きま す .C 言語 で 独 目 に 作成 し た ライ ブラ リ を 自由 に 扱う こと も 可能 に な り ま す . 
BASTOC コン バー タ は 表 4.4 の よう に 。C Compiler PRO-68k シス テム ディ スク の BC と い 
う デ ィ レ クト リ の 下 に 格納 され て いま す . 
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| BCX | BASTOC コ ン バ パー タ の プロ グラ ム フ ァ イル 
BASTOC コン バー タ の コン フィ ギュ レー ショ ン フ ァイル 
定 ア 













MOUSE 外部 関数 の 定義 ファ イル 1 
MUSIC 外部 関数 の 定義 ファ イル 
SPRITE.DEF SPRITE 外部 関数 の 定義 ファ イル 


STICK.DEF STICK 外部 関数 の 定義 ファ イル 
IMAGE 外部 関数 の 定義 ファ イル 


表 4.4 BASTOC コン バー タ の 構成 


田 アセ ン ブ ラ 

普通 の プロ グラ ム だ け を 作っ て いる の で あれ ば , アセ ンプ ブラ を 使わ な けれ ば な ら な い 場 面 は そ 
れ ほ ど 多 く は あり ませ ん 本書 で も , ほとん ど ア セン ブラ を 使っ た プロ グラ ム に つい て は 触れ て 
いま せん . し か し 。 Human68k の アセ ン ブ ラ は 。 い くつ か の 擬似 命令 が 用 意 き され て お り 。 な か な 
か 使い や すい も の に な っ て いま す 。 ここ で は 。 これ か ら ア セン プラ を 使っ て みよ うと 思っ て いる 
方 の た め に , その 特徴 を 紹介 する だ け に と ど め て お きま す . 


・ マ クロ 定義 。 … いく つか の 命令 群 を 1 つの 命令 に 置き 換え る こと が で きる 

・ レ ジス タ 定 義 … movem 命令 で 指定 する レジ スタ 群 を , 特定 の 名 前 で 表す こと が で きる 

・move 命令 の 最適 化 … アド レス レジ スタ へ の move 命令 を , movea 命令 に 置き 換え 
て くれ る 

・ プ ラン チ 命 令 の 最適 化 … すでに 定義 きれ て いる ラベ ル へ の ブラ ンチ 命令 を , 可能 で あ 


れ ば ブラ ンチ ・ シ ョ ー ト 命令 に 置き 換え て くれ る 


アセ ン ブ ラ は, BIN と いう ディ レク トリ の 下 に AS.X と いう ファ イル 名 で 格納 され て いま す . 


4.1. ど 多数 の 開発 ツー ル 
ここ で は 。 開発 の 途上 で 利用 する ツー ル の な か か ら 利 用 頻度 の 高い と 思わ れる も の に つい て 。 
その 用 途 と 特徴 に つい て 紹介 する こと に し まし ょ う . 


田 アー カイ バ (A.XX) 

本 来 は オプ ジェ クト ファ イル を まとめ て 。 ライ ブラ リ 化 する た め の ツ ー ル で す が , すでに 開発 
の すん だ ソー ス フ ァ イル な ど を まとめ て し まう こと も で きま す 。 結果 と し て ディ スク の 容量 の 分 
約 に つなが っ た り , 管理 を 容易 に する こと に も つなが り ま す . 
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4.| パッ ケー ジ の 内 容 を 確か め る 


田 コン バイ ラド ライ バ (CO.X) 

コン パイ ル や アセ ン ブ ル な ど ,。 一連 の 作業 を 自動 的 に 実行 し て くれ る も の で す . コン パイ ラド 
ライ バ を 使う と 。 丸 -BASIC, C 言語 .、 ア セン プラ と いう よう に 別々 の 言語 で 書い た プロ グラ ム を 
リン ク (連結 ) し て 1 つの 実行 ファ イル を 作る と いう よう な 高度 な 利用 を する こと が で きま す 。 


田 コン バー タ (CV.X) 

形式 の ファ イル を R 形 式 や ZZ 形式 の ファ イル に 変換 する コン バー タ で す . リン カ は XX 形式 
の ファ イル し か 作成 で きま せん の で ,。 せっ か く リ ロケ グ ケー タブ ル に 記述 し た プロ グラ ム で も , 双 形 
式 の ファ イル と な っ て し まい ます 。 この コン バー タ を 使え ば 。R 形式 の ファ イル に 変換 する こと 
が で きま す . 


田 シン ボリ ッ ク デ バッ ガ (DB.X) 

アド レス の 代り に シン ボル , すなわち C の 関数 名 や グロ ー バ ル 変 数 名 を 使え を る デバ ッ ガ で す の 
で , じ コ ン パ イラ で 作っ た 実行 ファ イル の デバ ッ グ を 効率 よく 行う こと が で きま す 。 Human68k 
の 実行 ファ イル は 。 ロー ド さ れる アド レス が いつ も ゃ 一定 と は 限り ませ ん の で 。 アド レス の 代り に 
シン ボル を 使え る と いう こと は 非常 に 便利 な の で す . 


田 エディ タ (ED.X) 

復 数 ファ イル の エディ ッ ト や , エディ タ 中 か ら Human68k の コマ ンド を 実行 で きる な ど 。 付属 
の エディ タ と し て は ,。 な か な か 優れ て いま す 。 エディタ 内 か ら 参 照 で きる オン ライ ンマ ニュ アル 
の 機能 も あり ます . 


田 リン カ (LK.X) 

復 数 の オプ ジェ クト ファ イル や ライ ブラ リフ ァイル を リン ク し ,。 実行 ファ イル を 作成 し ます . 
リン カ の 作業 の 内 容 か ら , ディ スク 入出 力 が 多く , 処理 に 時 間 が か か っ て し まい ます . そこ で コ 
ン パ イラ ドラ イ バ か ら リ ンカ を 呼出 す と き は , キャ ッシュ (CASH.X) と いう プロ グラ ム を 使っ て 
処理 の 高速 化 を は か っ て いま す . キャ ッシュ と は ,。 頻繁 に 使わ れる ファ イル を あら か じ め メ モリ 
上 に 読み 込み , 入出 力 を 高速 化し よう と いう も の で す . 


田 タイ ム ス タ ン プ の 更新 (TOUUCH.X) 

コン パイ ラド ライ バイ で イン M" オ プシ ョ ン を 指定 する と 。 ツ ソー ス フ アァ イル より オプ ジェ クト ブ ァ 
イル の 更新 日 時 の ほう が 新しく な っ て し まっ た 場合 , 再 コ ン パ イル し ませ ん . し か し , 特定 の ソー 
ス フ ァ イル だ け は 再 コ ン パ イル し た いと いっ た 場合 に , TOUCH.X を 使っ て タイ ム ス タ ン プ 操作 
する と うま く 動 作 さ せる こと が で きま す . 


す 21 


4 章 X68000 の プロ グラ ミン ク グ 環 境 


4.1.d 多数 の ヘッ ダフ ァイル 


ヘッ ダフ ァイル と は , 付属 し て いる ライ ブラ リ に 含ま れ て いる 関数 を 利用 する た め の 定 義 が 行 
われ て いる ファ イル で す 。 プロ グラ ム 中 で 使わ れ て いる 関数 に よっ て , 必要 な ヘッ ダフ ァイル を 
読み 込む (イン クル ー ド する ) 必 要 が あり ます . 各々 の 関数 が 必要 と し て いる ヘッ ダフ ァイル は , 
C ラ イブ ラリ マニ ュ ア ル の 書式 の 項 に #include く フ ァイル 名 > と いう 型式 で 指示 され て いま す . 

ここ で は ,。 それ ぞ れ の ヘッ ダフ ァイル の 概要 を 表 4.5 に あげ て お きま す .。 これ ら の ヘッ ダフ ァ 
イル は 。INCLUDE と いう ディ レク トリ の 下 に 格納 され て いま す . 


assert マク ロ が 定義 され て いる . デバ ッ グ 終了 後 は , “NDEBUG” を マク ロ 定 義 し て か ら 
ASSERT.H っ みっ 


| Apon X-BASIC で AUDIO.FNC 中 の 外部 関数 を 使う と, BASTOC に よっ て 自動 的 に イン クル ー 
ド さ れる 


BASIC.H X-BASIC の 組込み 関数 を 使う と , BASTOC に よっ て 目 動 的 に イン クル ー ド され る 


よく 使わ れる 型 や クラ ス が 定義 され て いる 「 
| CoNiOH 。 コン ソー ル 入 出力 関数 の 宣言 が 行わ れる 

文字 の チェ ッ ク 関 数 や 変換 関数 の マク ロ が 定義 され て いる 

ディ レク トリ に 対す る 制御 を 行う 開 数 の 宣言 が D 行 われ て いる 


アセ ンプ ブラ で DOS コー ル を 行う と き に 使う ヘッ ダ で , DOS コー ル を 呼ぶ マク ロ や , DOS 
IS コー ル の エン トリ が 名 前 で 定義 きれ て いる 


DOSLIB.H DOS コー ル で 使う 構造 体 の 定義 や , DOSLIB.A に 含ま れる 関数 の 宣言 が 行わ れ て いる 


エラ ー 出 力 に 使う エラ ー コ ー ド が 定義 され て いる 
FCNTL.H 低 水準 入出 力 関数 で 使わ れる 定数 が 宣言 され て いる 









FCTYPE.H CTYPE.H の 関数 版 で , 文字 の チェ ッ ク 関 数 や 変換 関数 の 宣言 が 行わ れ て いる 
アセ ンプ ブラ で X-BASIC の 外部 関数 を 作る と き に 使う ヘッ ダ で , 外部 関数 で よく 使わ れる 
定数 が 定義 され て いる 
アセ ンプ ブラ で 浮動 小数 点 演算 を 行う た め の ヘ ッ ダ で , 浮動 小数 点 演算 プロ セッ サド ライ 
バ の エン トリ が 名 前 で 定義 され て いる 


FLOAT.H 浮動 小数 点 で 表し た デー タ の 最大 値 や , 仮数 部 の 桁 数 な ど が 定義 きれ て いる 


X-BASIC で GRAPH.FNC 中 の グラ フィ ッ ク 制 御 関数 を 使う と , BASTOC に よっ て 目 動 的 
に イン クル ー ド され る 


| waeEm X-BASIC で IMAGE.FNC 中 の イメ ー ジ 処理 関数 を 使う と , BASTOC に よっ て 自動 的 に イ 


ンク ルー ド さ れる 
ファ イル 制御 関数 や 低 水準 入出 力 関数 な どの 宣言 が 行わ れ て いる 


アセ ンプ ブラ で IOCS コー ル を 行う と き に 使う ヘッ ダ で , IOCS コー ル を 呼ぶ マク ロ や , IOCS 
IOCSCALL.MAC コー ル の エン トリ が 名 前 で 定義 され て いる 





IOCS コー ル で 使う 構造 体 の 定義 や , IOCSLIB.A に 含ま れる 関数 の 宣言 が 行わ れ て いる 
全角 文字 や カナ 文字 の チェ ッ ク 関 数 や 変換 関数 の 宣言 が 行わ れ て いる 
JSTRING.H 全角 文字 列 の 比較 関数 や 検索 関数 の 宣言 が 行わ れ て いる 
符号 つき の char, short, int, long 型 の 最大 値 と 最小 値 . そし て それ ぞ れ の 型 に つい て , 
符号 な し の 場合 の 最大 値 が 定義 され て いる 
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4.| パッ ケー ジ の 内 容 を 確か め る 

















数 学 関数 の 宣言 の ほか に , 数 学 関数 の エラ ーー 処理 の た め の 定 義 や , 複素 数 の 構造 体 の 定 
義 。 z の 定義 が 行わ れ て いる 
X-BASIC で MOUSE.FNC 中 の マウ ス 制 御 関 数 を 使う と, BASTOC に よっ て 自動 的 に イン 
クル ー ド され る 


X-BASIC で MUSIC.FNC 中 の FM 音源 制御 関数 を 使う と , BASTOC に よっ て 自動 的 に イ 
ンク ルー ド さ れる 


プロ セス 制御 関数 の 宣言 が 行わ れ て いる 
setimp 関数 と longjimp 関数 の 宣言 と , それ ら の 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 
signal 関数 の 宣言 と , その 関数 で 使う 定数 の 定義 が 行わ れ て いる 


X-BASIC で SPRITE.FNC 中 の スプ ライ ト 制 御 関数 を 使う と , BASTOC に よっ て 自動 的 に 
イン クル ー ド され る 

stat 関数 と fstat 関数 の 宣言 と , それ ら の 関数 で 使う 構造 体 の 定義 と 定数 の 定義 が 行わ れ 
で も 

スト リー ム 入 出力 関数 の 宣言 お よび マク ロ の 定義 と , stdin, stdout な どの 定義 , EOF な 
ど 定 数 の 定義 , FILE 構造 体 の 定義 が 行わ れ て いる . この ヘッ ダ を イン クル ー ド する まえ 
に “MACRO" を マク ロ 定 義 し て お く と , いく つか の 関数 が マク ロ 定 義 で 実現 され る よう 
に な る 


STDLIB.H 一 般 的 な 他 の ヘッ ダ で は 宣言 され て いな いよ うな 関数 の 宣言 が 行わ れ て いる 
X-BASIC で STICK.FNC 中 の ジョ イス ティ ッ ク 入 力 関数 を 使う と , BASTOC に よっ て 自 


1 動 的 に イン クル ー ド され る 


| STRINGH 文字 列 処 理 関数 の 宣言 が 行わ れ て いる 


ftime 関数 と utime 関数 以外 の 時 間 に 関 係 し た 関数 の 宣言 と . それ ら の 関数 で 使う 構造 価 


の 定義 や 変数 な どの 宣言 が 行わ れ て いる 
TIMEB.H 


ftime 関数 の 宣言 と , その 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 
utime 関数 の 宣言 と , その 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 


MUSIC.H 


SETJMP.H 
SIGNAL.H 


SPRITE.H 
STAT.H 


STDIO.H 






























































表 4. 己 各 ヘ ッ ダ ファ イル の 概要 


4.1.4 4 つの 標準 ライ ブラ リ 

C 言語 は 。 ほとん どの 処理 を ライ ブラ リ に 任せ て いま すか ら , その 使い こなし に は , 文法 だ け で 
は な く 。 処理 系 に 付属 し て いる ライ ブラ リ に つい て も 知ら な けれ ば な り ま せん .C Compiler PRO 
-68k に 付属 し て いる ライ ブラ リフ ァイル に は , 次 の よう な 4 つの も の が あり ます . 


・CLIB.A … C 言語 で よく 使わ れる 標準 的 な 関数 の ライ ブラ リ 
・BASLIB.A … 文 -BASIC か ら 変換 され た あと の C 言 語 用 ライ ブラ リ 
・DOSLIB.A … DOS コー ル を CC 言語 か ら 使 うた め の ラ イブ ラリ 
・IOCSLIB.A … IOCS コー ル を C 言語 か ら 使 うた め の ラ イブ ラリ 


これ ら ラ イブ ラリ の 関係 は , 図 4.2 の よう に な り ま す . この 図 か ら わ か る よう に 。,C 言語 か ら 安 
全 に 使え る 関数 は 。CLIB の すべ て と 。BASLIB,。 DOSLIB。 IOCSLIB の 一 部 分 。 つ まり C ラ イ 
ブラ リマ ニュ アル で いう レベ ル 2 の 関数 で す . それ 以外 の 関数 は , 複雑 な 手順 を 必要 と する た め 

誤っ た 使い か た を する と 致命 的 な エラ ー を 発生 する 場合 が あり ます . 
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に DOSLIB 






C 言語 か ら 安 全 に 使え る 関数 


4. ど 4 つの ライ ブラ リ の 関係 


4.. つ ライ ブラ リ の 概要 と 利用 の ヒン ト 


パッ ケー ジ に 付属 し て いる 分 厚い マニ ュ ア ル を 見 る と 。 ラ イブ ラリ に 収め られ て いる 関数 の 多 
さ に 尻込み し て し まう 方 も いる か も し れ ま せん 。 し か し , 実際 の プロ グラ ミン グ で 必要 な 関数 は 
限ら ちら れ て いる の で す 。 もっとも, C 言語 で プロ グラ ム を 書く 場合 , CLIB に 収め られ て いる 関数 に 
つい て は 理解 し な けれ ば な り ま せん が 。 DOSLIB や IOCSLIB に つい て は ,。 その 必要 は あり ませ 
ん 。BASLIB に いた っ て は ,。 ま っ た く 《 く 使う 必要 が な いと いっ て し まっ て も 週 言 で は あり ませ ん . 
も し 。 BASLIB に た よら な けれ ば な ら な いよ うな 処理 (グラ フィ ッ ク や サウ ンド の 操作 ) を する 場 
合 ,。 まず X-BASIC で 書き , BASTOC で C 言 語 に 変換 し て 手 を 加え れ ば よい の で す . 

ここ で は , 膨大 な ライ ブラ リ 関 数 の な か か ら 一 般 的 に 考え て 有用 な も の を ピッ クア ッ プ し , そ 
れ ら の 使い か た の ヒン ト を 紹介 する こと に し まし ょ う . 


4 どど.1 ビラ イブ ラリ (OLIB.A) 

CLIB に は , UNIX の ライ ブラ リ に 準拠 し た 関数 や , MS-DOS 上 の MS-C の ライ ブラ リ に 含ま 
れ て いる 関数 と 同等 な 関数 。 そ し て 独自 の 関数 が 含ま れ て いま す . この よう に 従来 の C 言語 と の 
互換 性 も 保ち つつ ,。 新しく 追加 され た 関数 が ある た め , 使い や すく な っ て いま す . その 上 , これ 
ら の 関数 は アセ ン ブ ラ で 記述 され て いま すか ら ,。 処理 速度 も 比較 的 高速 で ある と いえ ます . 

それ で は , これ ら の 関数 を いく つか の 大 き な グ ルー ズ プ に 分 類 し て 紹介 し まし ょ う . 


画 デー タ の 操作 関数 と 変換 関数 

ここ で 説明 する 関数 は 。 どの 処理 系 で も た いて い の 場 合用 意 き され て いる 基本 的 な も の ば か り で 
す の で , あら た め て 説明 する 必要 は な いで し ょ う . あと は ,。 これ ら の 関数 を どの よう な 場面 で , 
どの よう な 使い か た を する か と いう , 英語 の イデ ィ オ ム に 相当 する 知識 を 薔 え を る だ け で す . ここ 
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で は , 文字 や 文字 列 。 整数 や 実数 , 複素 数 そし て バッ ファ 内 の デー タ を 扱う 関数 を 使っ て 行う 
イデ ィ オ ム の いく つか を 紹介 し まし ょ う 。 

た と えば , 文字 の 種類 に 応じ た 処理 を 行い た いよ うな 場合 を 考え て み ま し ょ う 。 次 の よう に , 
isalpha 関数 を 使っ た 1 行 で 文字 種 の 判断 を する こと が で きま す . 


if (isalpha (c) ) { 文字 が 英文 字 だ っ た 場合 の 処理 .…I 
また ,。 大 文字 と 小文字 の 区 別 な く 判 断 を し た い 場 合 に は 。 toupper 関数 が 有効 で す . 
if(toupper(c) ニ ー 'C') {文字 が c か C だ っ た 場合 の 処理 .…I 


文字 列 に 関す る 操作 を 行う 関数 に は , 文字 列 の 長 さ を 調べ る 関数 (strlen) や , 文字 列 の 複写 (str- 
cpy), 付加 (strcat), 比較 (strcmp), 検索 (strchr) な どの 関数 が あり ます . 文字 の 比較 に は 。 大 文 
字 小 文字 の 区 別 を せ ず に 比較 する 関数 (strcmpi) も 用 意 き れ て いま す . 

た と えば , 2 つの 文字 列 を 比較 し て , 同じ か どう か と いう 判断 を する た め に は , 次 の よう に し ま 
更 。 


if(strcmp(str1, str2) ニー 0) { str1 と str2 が 同じ 文字 列 だ っ た 場合 の 処理 


これ ら の 関数 を 使っ て プロ グラ ム し て あれ ば , 機種 ご と の 文字 コー ド に 依存 する こと な く 文 字 
の 識別 や 変換 を する こと が で きま す . 

その ほか , n 進数 の 数 字 を 表し て いる 文字 列 を 数 に 変換 し て , その 値 を 返す 関数 (strtol), ファ 
イル 名 や パス 名 と いっ た 文字 列 を 分 解 し た り 組 み 立て た りす る 関数 , 変更 する 関数 (strsfn, strm- 
fn, strmfe.…) な ども 用 意 さ きれ て お り , ファ イル 操作 を 便利 に し て いま す . た と えば , 最初 の 引数 
(argv [1]) を 数 値 に 変換 し て 変数 i に 代入 する に は 。 次 の よう に 行え を ば よい で し ょ う . 


char *Dtr , 
i 三 strtol(argv [1],&ptr, 0) : 


数 値 計算 関数 は , 浮動 小数 点 演算 に より sin や exp な どの 計算 を 行う 関数 で す . 命令 の 実行 に 
は , FLOAT1.X や FLOAT2.X。 FLOAT3. な どの デバ イス ドラ イ バ を 使っ て いま すか ら 。 数 値 
演算 プロ セッ サボ ー ド な ど を 購入 し た 場合 に は 。 デバ イス ドラ イ バ を 差し 替え を る だ け で , その 数 
値 演 算 プ ロ セ ッ サ ボー ド を 利用 で きま す . 

バッ ファ 操作 関数 は , 指定 され た アド レス か ら 指 定 さ れ た バイ ト 分 の メモ リ 空 間 を バッ ファ と 
みな し て , それ に 対し て バイ ト 単 位 で の コピ ー(memcpy), 比較 (memcmp), 検索 (memchr) な ど 
と いっ た 処理 を 行い ます . バイ ト 単 位 で すか ら , 文字 列 操作 関数 を 低 レ ベル に し た 関数 と も いえ 
る で し ょ う 。. 低 レ ベル な 分 , 細か な 処理 も で きま すか ら , な か な か 便利 な 関数 で す . 

た と えば , array1l と いう 配列 を 0 で 初期 化す る 場合 を 考え て み ま し ょ う . 次 の よう に する こと 
で , 高速 に 実行 で きま す . 
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setmem(array1, sizeof(array1), 0) : プ ※* 配列 の 初期 化 * ノ 


し か し , これ ら の バッ ファ 操作 関数 は 。 他 の C コン パイ ラ に は な い 場 合 も あり ます か ら ,。 使う 
と き に は その 機能 に つい て の コメ ント を 残し て お くべ き で す 。 

デー タ 変 換 関数 に は , 10 進数 の 数 を 表す 文字 列 を 数 値 に 変換 する 関数 (atoi) や , 数 値 か ら 文 字 
列 に 変換 する 関数 (itoa) が あり ます . 

検索 に は 二分 探索 アル ゴリ ズム に よる 関数 (bsearch) が , 並 替 えた え に は クイ ッ ク ソ ー ト ・ ア ル ゴ 
リズ ム に よる 関数 (qsort) が 用 意 さ きれ て いま す . また , 用 途 を 限定 し て 速度 を 速め た クイ ッ ク ソ ー 
ト 関 数 (fqsort.……) も 用 意 き れ て いま す . 


一 入出 力 関数 
入出 力 を 行う た め の 関 数 は , 次 の よう に 分 類 で きま す . 


・ バ ッ フ ァ リ ング を 行う スト リー ム 入 出力 関数 
・ バ ッ フ ァ リ ング を 行わ な い 低 水準 入出 力 関数 
・ コ ン ソ ー ル と の 直接 入出 力 を 行う 関数 


スト リー ム 入 出力 関数 や 低 水 準 入 出力 関数 を 使う こと で , 指定 し た ファ イル や デバ イス と の 入 
出力 を 行う こと が で きま す . デ バイ ス と の 入出 力 は ファ イル 名 の 代り に デバ イス 名 を 使う だ け で , 
普通 の ファ イル に 対す る 入出 力 と 同様 な 手順 で 扱う こと が で きま す . 

この スト リー ム 入 出力 は 標準 入出 力 と も 呼び , 文字 列 処 理 が 容易 な こと と , デー タ の バッ ファ 
リン グ を し て くれ る こと が 特徴 で す .。 

実際 に ファ イル を アク セス する に は 。 FILE 構造 体 を 使い ます . まず ファ イル を オー プン 
(fopen) す る と , FILE 構造 体 の な か に その ファ イル に 関す る 情報 を 構築 し て 。 そ の 構造 体 の 格納 
され て いる アド レス を 返し て きま す . 以後 この 情報 に 基づい て ファ イル を アク セス (fgets.…) し ま 
す . その た め ,。 この FILE 構造 体 の アド レス は ファ イル 別に 保管 し な けれ ば な り ま せん . 

それ で は ,。 実際 に スト リー ム 入 出力 を 使っ た プロ グラ ム の 例 を 見 て み ま し ょ う ( リ スト 4.1). 


リス ト 2. ] スト リー ム 入 出力 関数 を 使っ た ファ イル の コピ ー(cp.C) 


・ #define MACRO 
・#include <stdio.h> 
・#include <io.h> 
・#include <stdlib.h> 
・ #define ERROR (-1) 


・ CoPpy(char *。 char 3 0 で er 第 1 引数 の 示す ファ イル を 第 2 引数 の 示す ファ イル へ ヘ へ コピー する 関数 


や で どど ココ OO の の の た で ぴら 


ャ ーー 
ーー 


・ YOid main(argc, argV) 
・ char *argv[]」: 


ーーーー 
[うら 
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1838 # 








14: if (argc != 3) { | 

15: fprintf(stderr, "Usage: %s sourcefile destfile\n", argv[9]), | 引数 が 正しく な い 場 合 に 使 
16: exit(1): い 方 を 表示 し て 終了 する 
(7: ) 

18: if ORNINTNMLI argvV[2]) == ERROR) { 

19: perror(argv[9]): 放 eo 

2: fputs(" コ ピー に 失敗 し まし た . \n”, stderr): Pe ーー 

8 exit(1): 

の の 

29: exit(9): 

24: } 

25: 


26: copy(sfile, dfile) 
27: char #*sfile: 
28: char *dfilei 














29: { 

3: int chi 

い 9 FILE *sfp, *dfp: 

くも を 

33・ if ((sfp = fopen(sfile, "rb”)) == NULL) | コピ ー 元 の ファ イル を オー プン する 
34: return ERROR: 

95: if ((dfp = fopen(dfile, “wb”)) == NULL) { 

5 file ビーフ ァ イル を ター シイ = 
39 ( (sfp)) | 

39: while ((ch = getc(sfp)) != EOF) | oo TI 
40: OKGCGh。 dfD う 1 | 入力 が な く な る まで , 入力 を 出力 へ コピ ビー する 
41: if (ferror(sfp) II ferror(dfp)) { 

42: fclose(sfp): 

43: fclose(dfp): エラ ー が 発生 し た 場合 に , コピ ー 先 ファ イル 
44: unlink(dfile): を 削 際 し て 終了 する 

45・ return ERROR: 

46: ) 

47: fclose(sfp): 

48: fclose(dfp):  ! ファ イル を クロ ー ズ し て 終了 

49: Teturn IERROR: 

59: } 





この 例 で は スト リー ム 入 出力 関数 を 使用 し て いる た め 。 低 水準 入出 力 関数 な ど 他 の レベ ル の 入 
出力 関数 と と も に 使う 場合 に は , fflush 関数 で バッ ファ を 空 に する と いう 手順 を 踏ま な けれ ば な 
り ま せん . この よう な 手間 を か ける わり に メリ ッ ト は あり ませ ん の で , で きる だ け 同 一 レベ ル の 
関数 で 統一 する よう に し た ほう が よい で し ょ う 。 

低 水準 入出 力 関数 は , 非常 に 基本 的 な 処理 し か 行わ な いた め , 高速 な 処理 を 期待 で きま す が , 
スト リー ム 入 出力 関数 と 違い ファ イル の アク セス に ファ イル ハン ドル を 使い ます . ファ イル ハン 
ドル と は 。 オー プン (open) し た ファ イル に 付け られ る 一 意 の 識別 番号 Gnt 型 ) で 。 ファ イル ハ 
ンド ル を 獲得 し た あと は , この 番号 を も と に アク セス (read.…) し ます .。 

それ で は , リス ト 4.1 に あげ た プロ グラ ム を 低 水 準 入出 力 関数 を 使っ て 書き 直し て み ま し ょ う 
(リス ト 4.2). 
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リス ト 4. 低 水 準 入出 力 関数 を 使っ た ファ イル の コピ ー(cCp ら .C) 





・ #define MACRO 


・#include <stdio.h> 
・ #include <fcntl.h> 
・ #include <io.h> 
・#include <stat.h> 

・ #include <stdlib.h> 


・ #define ERROR (-1) 

・#define RMODE (0O_RDONLY | 0_BINARY) 

・#define WMODE (0O_CREAT | 0O_TRUNC | 0_WRONLY | 0_BINARY) 
・#define PMODE (S_IREAD | S_IWRITE) 


' CODYtONAD 6GNAT 5 や や の の の 第 1 引数 の 示す ファ イル を 第 2 引数 の 示す ファ イル へ コピ ー す る 関数 


・ VOid main(argc, 8TgY) 
・ char *argv[]: 


いう = と ーー レー レー ーー レー レー レー レー レー レー 
で や (の ぐ - こ ココ の の な CC ト O ら ご CoCo=- コ OO つ の で お CS トト 5 一 





if (argc != 3) 【 | 
fprintf(stderr, "Usage: %s sourcefile destfile\n", argv[]), | 引数 が 正しく な い 場 合 に 合 
21: exit(1): | い 方 を 表示 し て 終了 する 
22: ) 
23.: if Ab argv[2]) == ERROR) 5 
24: perror(argv[]): 本 ーー 
2 fputs(" コ ピー に 失敗 し まし た . *n", stderr): | ee 提 
26: exit(1): 
27: 
28: exit(9): 
29: 
39: 
31: copy(sfile, dfile) 
32: char *sfile: 
33: char *dfilei 
34: 
35: char buffer[BUFSIZ]: 
S5・ Int size: 
く W 放 Int sfd, dfd: 
38: 
39: if ((sfd = open(sfile, RMODE)) == ERROR) | コピ ー 元 の ファ イル を オー プン する 
4: return ERROR: 
41: if ((dfd = open(dfile, WMODE, PMODE)) == ERROR) { | 
42・ close(sfd): コピ ー 先 の ファ イル を オー プン する 
43: return ERRORi | 
44: 」 
45: while ((size = read(sfd, buffer, sizeof(buffer))) > 9 
46: if (write(dfd, buffer, size) < size) { | 入力 が な く な る ま て で, 入力 を 出力 へ 
47・ SI み 6 ニー]1: : コピ ー す る. エラ ー が 発生 し た 場合 
48: break: | に は size に 一 1 が は いる 
49: | 
59: ) we 」 
51: close(sfd): ロー ズ 
52: close(dfd): の 1 
53: if (size <9) { ' 
54: unlink(dfile): | エラ ー が 発生 し た 場合 に コピ ー 先 ファ イル 
55: return ERRORi | を 削除 し て 終了 する 
56: 
人 return !ERROR: 
58: } 
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これ ら の 関数 を 使う に は 。 “types.h? を イン クル ー ド する 必要 が ある よう に マニ ュ ア ル に 記述 さ 
れ て いま す が , 実際 に は この ヘッ ダフ ァイル は に 存在 し ませ ん . で すか ら ,。 この リス ト の よう に イ 
ンク ルー ド し な く て も まっ た く 問 題 あ り ま せん . 

コン ソー ルル 入出 力 関数 (getch) は , 直接 コン ソー ル に アク セス し た いと き に 使わ れ , バッファ リ 
ング せ ず に 標準 入力 か ら 1 文字 読み 込む 関数 や 。 キー ボー ド が 押さ れ た か どう か を 調べ る 関数 な 
ど が あり ます . 


田 ファ イル や ディ レク トリ の 操作 関数 

ファ イル を 操作 する 関数 と し て は , ファ イル の 削除 (unlink)、 フ ァイル 情報 の 獲得 と 変更 (stat) 
な ど が あり ます . ファ イル 操作 関数 中 に は , ファ イル を 作成 する と いう 関数 が あり ませ ん が , ス 
トリ ー ム 入出 力 関数 や 低 水準 入出 力 関数 (fopen, open, creat) で 代行 きれ て いま す . 

ディ レク トリ を 操作 する 関数 と し て は , ディ レク トリ の 作成 (mkdir), 削除 (rmdir), カレ ント 
ディ レク トリ の 調査 (getcwd), 変更 (chdir) の 4 つ し か あり ませ ん . 


田 シス テム 関数 
シス テム 関数 と は , Human68k に 対し て リク エス ト を 発行 する た め の 関 数 で す . CLIB に 分 類 
され て いる 関数 を 使っ て 要求 で きる サー ビス に は , 次 の よう な も の が あり ます . 


・ プ ロ セ ス の 制御 

・ 環 境 変数 の 設定 や 読込 み 
・ 時 間 や 日 付 の 読込 み 

・ メ モリ の 割当 て 


シグ ナル 割込み を 制御 する こと で ,。 プ ログ ラム は Human68k か ら の 指示 (シグ ナル ) を 判断 し , 
適切 な 行動 を と る こと が で きま す 。 た と えば , ター ミナ ルプ ログ ラム の よう に , STOP キー が 押 
され た か ら と いっ て 。 その まま 処理 を 中 断 し て し まっ て は 困る よう な プロ グラ ム で は , これ ら の 
関数 を 使い , 正しい 終了 の 手続 き を 行っ た あと に 終了 させ ます . 

また 。 子 プロ セス を 起動 する 関数 は , 起動 し た 子 プ ロ セ ス に 制御 を 移す 関数 (exec) と , 親 ブ 
ロ セ ス が 継続 し て 制御 を 行う 関数 に 分 けら れ ま す . 後者 の 場合 に も , 指定 され た プロ グラ ム を 直 
接 起 動 す る 関数 (spawn) と 。COMMAND.X を 通し て 起動 する 関数 (system) に 分 けら れ ま す . 
COMMAND.X に よっ て 子 プ ロ セ ス を 起動 する 方 法 は , COMMAND.X の 機能 ・ た と えば リ り 2 
レク ト や パイ プ ,。 TYPE コマ ンド な どの 内 部 コマ ンド を 使う 場合 に 有効 で す . 

時 間 を 扱う 関数 に は , 現在 の シス テム 時 間 ( グ リ ニ ッ ジ 標 準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か 
ら 経過 し た 秒 数 ) を 調べ る 関数 (time, ftime) シス テム 時 間 を 地方 時 に 変換 する 関数 (localtime) , 
時 間 の 表現 を 文字 列 や 構造 体 に 変更 する 関数 (asctime, gmtime), ファ イル の 更新 日 時 を 変更 す 
る 関数 (utime) が あり ます . 
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地方 時 を 得る に は , まず time 関数 で シス テム 時 を 得 て , localtime 関数 で 地方 時 に 変換 し 。 tm 
構造 体 に 代入 し ます . あと は それ を 文字 列 に 変換 し て 利用 すれ ば よい で し ょ う . シス テム 時 を tm 
構造 体 の 地方 時 に 変換 する localtime 関数 は 。 現在 の C ラ イブ ラリ マニ ュ ア ル に は 記載 され て い 
ませ ん が , gmtime 関数 と 同じ よう に 記述 し て 使う こと が で きま す . これ ら の 関数 を 使っ た 例 を リ 
スト 4.3 に あげ て お きま す . 

また ,。 utime 関数 で 指定 する 時 間 は , time 関数 で 返さ れる シス テム 時 の フォ ー マ ッ ト と 同様 , 
グリ ニッ ジ 標 準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か ら の 経過 秒 数 に な っ て いな けれ ば な り ま せん . 


リス ト 2. 地方 時 の 表示 (time.C) 


・ #define MACRO 


] 

2 

S: #include <stdio.h> 

4: #include <time.h> 

b: 

6: void main() 

する 

8: Int gmt: 

9・ Struct tm *lctime: 

19: シス テム クロ ッ ク が グリ ニッ ジ 標 準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か ら 
ff time(&gmt): 0 EE 経過 し た 秒 数 を 求め 識 数 gmt に 代入 する 

12: lctime = localtime(&gmt)j ……… gmt を 現地 で の 時 間 に 変 換 し tm 構造 体 に 代入 する 
13: puts(asctime(lctime))j tm 構造 体 の 表す 時 間 を 女 字 列 に 変換 し て 出力 する 





メモ リ 割 当て 関数 を 使っ て , プロ グラ ム が 動 的 に メモ リ を 確保 する こと が で きま す . これ は プ 
ログ ラム が 実行 時 に 必要 と する メモ リ の 量 を , あら か じ め 決 定 で き な い 場合 , た と えば 文字 列 や 
リス ト 構 造 な どの よう な メモ リ の 必要 量 が 不定 な デー タ 構 造 を 扱う と き な ど に 使わ れ ま す . 

メイ ン メ モリ は , Human68k に よっ て 管理 され て いま す の で ,。 プ ログ ラム 中 で メモ リ を 必要 と 
する 場合 に は , その 必要 量 を DOS に 要求 し 確保 お する と いう 手順 を 踏ま な けれ ば な り ま せん . も ち 
ろ ん 十 分 な メモ リ を 確保 で き な い 場合 も あり ます の で , エラ ー チ ェ ッ ク を 行う な どの 対処 が 必要 
で す .。 また 。 必要 の な く な っ た メモ リ は , 他 の プロ セス の た め に 開放 し な けれ ば 効率 的 な 運用 を 
すら と と ちよ は で きま せん 。 

メモ リ の 確保 と 開放 と いう 一 連 の 作業 に は , malloc 関数 と free 関数 を 使い ます . この malloc 
関数 は , 実行 に 失敗 し た 場合 で も errno を 設定 し ませ ん か ら , 自分 で errno に ENOMEM (error. 
h で 定義 し て ある ) を 代入 し て , perror 関数 で エラ ー を 表示 し な けれ ば な り ま せん . また 。 起動 
時 に ヒー プ 信 域 と し て 確保 し た 領域 (デフォルト で 64K バイ ト ) 以上 の 領域 を 。 malloc 関数 で 確 
保 す る こと は で きま せん . 

これ ら の 一 連 の 動き を サン プル プロ グラ ム で 見 て みる こと に し まし ょ う . リス ト 4.4 の プロ グ 
ラム を 実行 する と 。 確保 で きる 限り の メモ リ を 確保 し て , 確保 で き な く な っ た と ころ で errno を 
設定 し て perror 関数 を 呼び 出し ます . その あと sbrk 関数 で ヒー プ 領 域 を 拡張 し な が ら メ モリ の 
確保 を 続け ます . 
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リス ト 4.4 mallgc 関数 と free 関数 の 使用 例 (mallOcC.C) 





1: #define MACRO 

の : 

3:・ #include <stdio.h> 

4: #include <stdIib.h> 

5・ #include <error.h> 

65・ 

7: #define ERROR (-1) 

8: #define KB 1924 

9: 

19: void main(argc, argv) 

11: char *argv[]: 

12: { 

13: int sizek, 

14 : VOId *ptr: 

15: 

16: sizek = 16: 

8 while (sizek < 4192) { 

18: printf(” %4dK バ イト ヒー グ プ 領 域 か ら 確 保 し ます \n”, sizek), | sizekK バ イト の 領域 を malloc 
19: if ((ptr = malloc(sizek * KB)) == NULL) { | 関数 て 確保 する 
2: errno = ENOMEM: | 
61: perror(argv[9]): | エラ ー が 起こ っ た 場合 に エラ ー メ ッ 
2 の : puts(”): セー ジ を 表示 し て , ヒー プ 領 域 を 
23: puts(” 1 上 K バ イト ヒー ブ プ 領 域 を 拡張 し ます "): | 100K バ イト 拡張 する 
24: if (sbrk(199 * KB) == ERROR) { 
25: perror(argvL9]): | 拡張 で エラ ー が 起こ っ た 場合 , エラ 
26: exit(1): | 一 メッ セー ジ を 表示 し て 終了 する 
の 3 
28: continue: 
Z93: 】 
3 free(ptPOi oo 確保 し た 領域 を 開放 する 
に 間 馬 Si26K 2 に つつ 確保 する サイ ズ を 倍 に し て 続け る 
9 の 
33! exit(9): 
34: } 





4. 己 戸 メ X-BA8SID ライ ブラリ (日 AGLIB.A) 

X-BASIC の プロ グラ ム を BASTOC で C 言語 の プロ グラ ム に 変換 し た あと , X-BASIC の 関 
数 や ステ ー ト メン ト に 相当 する 機能 を 提供 する た め の ラ イブ ラリ で す . も ちろ ん ,C 言語 か ら 直 接 
使う こと も で きま す が , や は り BASTOC で 変換 後 の プ ログ ラム の た め に ある 関数 で す の で , 積極 
的 に 使う べき で は あり ませ ん . また 。 場合 に よっ て は CLIB 内 の 関数 と 競合 し て 問題 が 起こ る 可 
能 性 さえ を あります. 

し か し , 次 に あげ る よう な いく つか の 関数 は CLIB に 用 意 き れ て いな い 機 能 を 提供 し て お り , 
し か も 比較 的 安全 に 使う こと が で きま す . 


・ グ ラフ ィ ッ ク の 搬 写 
・ カ ラー イメ ー ジ ・ ユ ニッ ト か ら の 画像 取込み 
・ 画 面 デ ー タ の 保存 や 読込 み を 行う 関数 
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・FM 音源 で 音楽 を 演奏 する 関数 
・ マ ウス や ジョ イス ティ ッ ク の 制御 や 状態 を 調べ る 関数 
・ 色 コー ド を 求め る 関数 


44. DOS コー ル ラ イブ ラリ (DOSLIB.A) 

Human68k の DOS コー ル を 使う た め の ラ イブ ラリ で す . CLIB だ け で は 実現 で き な い 機能 で 
も , DOS コー ル を 使う こと に よっ て 実現 で きる 場合 も あり ます . この ライ ブラ リ を 使う こと に よ 
り 。 DOS コー ル を 名 前 で 呼び 出せ る よう に な り ま す . た だ し , 一 般 的 な DOS コー ル の 名 前 と 
DOSLIB の 関数 の 名 前 が 違う 場合 も あり ます か ら 注 意 し て くだ さい . 

また 。 コンパ イラ ドラ イ バ を 使っ て コン パイ ル す る 場合 。 この ライ ブラ リ は リン ク の 対象 に な 
り ま せん の で 。 この ライ ブラ リ 内 の 関数 を 使っ た プロ グラ ム を コン パイ ル す る 場合 は ,。 コン パイ 
ル 時 に ババ プ Y” オプ ショ ン を 指定 し な けれ ば な り ま せん . 

それ で は , DOS コー ル 関 数 の な か で 比較 的 使用 頻度 が 高い も の を 解説 する こと に し まし ょ う . 


一 入出 力 関数 

ファ イル 。 コンソール 。 プ リン タ そ し て RS-232C と の 入出 力 を 行う DOS コー ル を 呼び 出す 関 
炒 で す .。 これ まで 紹介 し て きた CLIB や BASLIB 内 の 関数 も , 内 部 で DOS コー ル を 使っ て いま 
す の で 。 最 も 基本 的 な サー ビス を 提供 する 関数 だ と いえ る で し ょ う . た だ し , 普通 に 入出 力 を 行 
う の で あれ ば CLIB の 関数 を 使え ば 十分 で し ょ う . 

も し これ ら の 関数 を 使う 場合 に は ,。CLIB の スト リー ム 入 出力 関数 な ど と 競合 し な いよ うに 注 
意 し て くだ さい 。 


田 ファ イル や ディ レク トリ の 管理 

これ に 属す る 関数 に は , ファ イル の 属性 を 操作 する 関数 と ディ レク トリ の 作成 や 削除 を 行う 関 
数 が 含ま れ て いま す . これ ら の 関数 か ら は , CLIB で は で き な い よう な 操作 。 た と えば ディ レク ト 
リ の 属性 や 名 前 の 変更 (CHMOD, RENAME), ディ レク トリ 内 の ファ イル 名 の 検索 (FILES, 
NFILES) を する と も が で きま す . 
ここ と で は , RENAME 関数 の 例 と し て , ディ レク トリ の 名 前 を 変更 する rendir と いう プロ グラ 
ム を 作成 し て み ま し た (リス ト 4.5)、 こ の プロ グラ ム で は ,。 ファ イル 名 の 指定 に ワイ ルド カー ド 
を 使え る よう に FILES 関数 と NFILES 関数 も 使っ て いま す . 
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リス ト 1. ティ レク トリ 名 の 変更 (rendir.C) 


#define MACRO 


#include <stdio.h> 
#include <doslib.h> 
#ijnclude <error.h> 
・ #include <stat.h> 
・ #include <stdlib.h> 


・ #define MAXPATH 128 /* on Human68k max path length is 91 */ 


・ vVOid main(argc, argv) 
・ char *argV[]: 


struct FILBUF fnbufi 
struct NAMECKBUF nmbuf: 
char fname[MAXPATH]: 


if (argc != 3) { | 
fprintf(stderr, "Usage: %s oldname newname\n”, argv[9]): | 引数 が 正しく な い 場 合 に 使 


いう ーー ーー ーー ーー ーー トー ーー ーー ーー ーー 
で や (の で = ここ コ O の つの や 忌 CCO 選 で oOo^=- コ OO の つの ⑦o く (OO デ 











exit(1): い 方 を 表示 し て 終了 する 

21 
がく /* check wild card */ 
2 if (NAMECK(argv[1], &nmbuf) < 9 II FILES(&fnbuf, argv[1], S_IFDIR) 」 

!= 9) 【 指定 され た 元 の ディ レク トリ が 
24: errno = ENOENT: ある か どう か チェ ッ ク し て , な 
25: perror(argv[9]): い 場 合 に は エラ ー メ ッ セ ー ジ を 
26: exit(1): 表示 し て 終了 する 
だ 
26: strcpy(fname, nmbuf.drive): | 元 の ディ レク トリ 名 の ワイ ルド 
29: strcat(fname, fnbuf .name): | カー ド を マッ チ さ せる 
3 /* match wild PD more than 1 */ 
9 は: 1f (NFILES(&fnbuf ) == 9) に 時 
32: fprintf(stderr, "%Ss: 1 つの ディ レク トリ し 本 ーー ーー 

argvL9]), | ッ セ ー ジ を 表示 し て 終了 する 
338 exit(1): 
34: 
35・ if (RENAME(fname, argv[2]) < ) { 
Sb : errno = EEXIST: ディ レク トリ 名 を 変更 する , エ ラー 
97< perror(argv[9]): が 起こ っ た 場合 に エラ ー メ ッ セ ー 
38: exit(1): | ジ を 表示 し て 終了 する 
39: 
4: exit(9): 
41: } 





田 ドラ イブ や ディ スク の 操作 


カレ ント ドラ イブ の 変更 や ディ スク ドラ イブ の 制御 を 行う た め の 関 数 で す . 現在 の CLIB に 含 
まれ る 関数 で は , カレ ント ドラ イブ の 読込 みや 設定 が で きま せん . その た め , これ ら の 操作 を 行 
うた め に は , DOSLIB 内 の 関数 を 使わ な けれ ば な り ま せん . また だ た, ディ スク の ロッ ク や イジ ェ ク 
ト (DRVCTRL)、 ブロ ッ ク デ バイ ス を 直接 読み 書き する 関数 (DISKRED, DISKWRT) も 含ま れ 
て いい ます 。 

ここ で は 。 指定 し た ディ スク を ロッ ク し て イジ ェクト 不可 能 に し た り ,。 それ を 解除 する プロ グ 
ラム を 作成 し まし た (リス ト 4.6). 
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lock < ロッ ク す る ドラ イブ 名 > 


と 入力 する と , 指定 され た ディ スク ドラ イブ を ロッ ク し , ロッ ク さ れ て いた 場合 は それ を 解除 し 


: 


リス ト イ . ティ スク ドラ イブ の ロッ ク (lock.C) 





ャ ーー 
で や (で の =- コ の O の の の お CCP 


ょ ーー 
ゃ ーー 


#define MACRO 


#include <stdio.h> 


・#include <ctype.h> 
・#jnclude <doslib.h> 
・#include <stdlib.h> 


・ #define SENSE M 
・ #define LOCK 2 
・ #define UNLOCK S 
・ #define STINS り x2 











12: #define STLOCK 中 49 
13: #define DRVCHCno) ((no) + ?@' ) 0 6 ドラ イブ 番号 を ドラ イブ 名 に 変更 する マク ロロ 定義 関数 
14: #define DRVNO(ch) (toupper(ch) - 9 oo ドラ イブ 名 を ドラ イブ 番号 に 変更 する マク ロ 定 義 関数 
8 人 
16: void main(argc, argVv) 
17: char **argVi 
1 導き 4 
19: int drvno, statusi 
29: 
み 1: if (argc == 1) { 
22・ fprintf(stderr, "Usage: %S drivenames\n”, argv[L9]), | 引数 が 正しく な いり 場合 に エラ ー 
の な exit(1): | メッ セー ジ を 表示 し て 終了 する 
24: | 
25: while (--argC > り ) DO 残り の 引数 を チェ ッ ク す る 
26: 8TgV++・ 6 0:o:es 凡 午 SUE ま USER 引 雪 か ら ドラ イフ 番号 を 得る 
27: drvno = DRVNO(*xargy): 
28: た = ae MR HO は 指定 され た ドラ イブ の 状態 を 調べ る | フロ ッ ピー ディ スク が は いっ て 
29: if (status & STINS) == 9 ッ ピ ー デ ィ ス ク が は いっ て 
39: fprintf(stderr, "not jinsert %c: drive.\n", DRVCHCdrvno)): | に di 
31: ) else if (status & STLOCK) 【 | 
ドレ if (DRVCTRL(UNLOCK, drvno) & STLOCK) | ロッ ク し て ある 場合 に 
Q3 バ fputs("cannot ", stderr): アン ロッ ク す る 
34 : fprintf(stderr, "unlock %c: drive.\”", DRVCH(dryno)): 
35: 】 else { 「 
Sb・ if ((DRVCTRL(LOCK, drvno) & STLOCK) == の アン ロッ ク し て ある 場 
37: fputs("cannot ", stderr): | 全 に ロッ ク す る 
38: fprintf(stderr, "lock %c: drive.\n", DRVCHCdrvno)): 
39: 〔 
47: | 汗 CCCCCCCOCCOT 操り 返す 
41: exit(): 
42: )} 
田 シス テム 関数 


DOSLIB で 要求 で きる サー ビス は 。 プロセス や プロ グラ ム の 制御 。 メ モリ の 管理 な ど 多 岐 に わ 
た り ま す が 。 この な か で も 他 の ライ ブラ リ か ら は 扱う こと の で き な い サー ビス と し て は 。 次 の よ 
うな も の を あげ る こと が で きま す . 
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・ プ ロ セ ス の 管理 情報 の 制御 関数 (GETPDB, SETPDB, PSPSET) 

・ プ ログ ラム を 常駐 きせ て 終了 する 関数 (KEEPPR) 

・ 時 間 や 日 付 の 設定 

・Human68k の バー ジョ ン の 読込 み (VERNUM) 

・Human68k 内 の フラ グ や ファ ンク ショ ン キ ー の 設定 や 読込 み (VERFIY, FUNCKYGT.…) 
・ ベ クタ の 設定 や 読込 み (INTVCS, INTVCG) 

・68000CPU の 動作 状態 の 切換 え 


これ ら の な か で も , 時 間 や 日 付 の 設定 は 。 TIME コマ ンド や DATE コマ ンド で 設定 する も の で 
あり , アプ リケーション か ら 勝 手 に 設定 すべ き 性 格 の も の で は あり ませ ん か ら , 一 般 的 に は 利用 
きい で し ょ 才 。 

ベク タタ を 書き 換え る こと で 。 エ ラー が 発生 し た と き の メ ッ セ ー ジ を 変更 し た り 。 新しい DOS 
コー 池 を つつ サ 地 え えた りす る と と ょ と が でき まず 。 

CPU の 状態 の 切換 え (SUPER) は 。 スーパー バイ ザ ス テ ー ト に し た り 。 逆 に ユー ザー ステ ー ト 
に 戻す こと を いい ます .。 スー パー バイ ザ ス テ ー ト に する こと で 。X68000 の すべ て の メモ リ や 1I/O 
を 自由 に アク セス で きる よう に な り ま す . 

上 に あげ た 以外 の 関数 に は , 環境 変数 の 設定 や 読込 み 。 メモ リ の 確保 や 開放 を する も の が あり 
ます が , 一 般 的 に は CLIB を 使っ て 行い ます 

ここ で は 例 と し て ,。 メモ リ 中 に 常駐 し ,。 エラ ー が 発生 し た と き に エラ ー メ ッ セ ー ジ を 表示 させ 
る プロ グラ ム を 作っ て み ま し た (リス ト 4.7, リス ト 4.8) . INTVCS 関数 で エラ ー に よる 割込み 
ベク タ を 書き 換え , KEEPPR 関数 で プロ グラ ム を 常駐 きせ た まま 終了 させ て いま す . 


リス ト 2. ノ エラ ーー 処理 (error.c) 


1: #include <stdio.h> 

2: #include <doslib.h> 

5 

4: #define PRGLEN (_HEND - _PSP - 9xfM) 

5: #define TRAP14 (9x2e) 

6: #define LOW(s) 0 本 EEE ト を 返す マク ーー EE 

7: #define IOCSERR(errno) ((void)fprintf(stderr, " ェ エラー($%4x) が 発生 し | 索 NE 
まし た ", errno)) Pe ツーン 

6: クロ 定義 関数 

3: extern int _HEND, _PSP: 

19: extern void _error(Oi oo アセ ンプ ブラ て で 記述 し た error 関 数 を 呼び 出す 下位 ルー チン 

中 詩 

12: static char *mes 氏 ] = { /* error code */ 

13: "Interrupt ス イッ チ が 押さ れ ま し た ", /* xx 角 1f, 9x391f  */ 

14: “パス エラ ー が 発生 し まし た ", /* xx9992 */ 

9: デア ドレ スエ ラー が 発生 し まし た ”。, /* Mx 味 93 */ 

16: 未定 義 命 令 が 実行 され まし た 『", /* 9x994 */ 

17: “0 で 除算 し まし た ", /* MxM5 */ 

18: "CHK 命 令 が 実行 され まし た ", /* ix96 */ 

19: "TRAPV 命 令 が 実行 され まし た ", /* Mx 時 97 */ 

29: RS 人 /* Mx98 */ 

2 か 
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22: static char *mesl[] = { 
23: "無効 な ユニ ッ ト を 指定 し まし た ", /* xx?29] */ 
24: "ディ スク が 押入 され て いま せん ", /* xx2792 */ 
25: "デバ イス ドラ イ バ に 無効 な コマ ンド を 指定 し まし た ", エー ボタ セー 
26: /* xx?993 */ 
民生 ター /* 9gx2994 */ 
28: "ディ スク の 管理 領域 が 破 填 さ れ て いま す ", /* ix?2295 */ 
29: “シー クエ ラー"。, /* 9x2296 */ 
39: "無効 な メデ ィ ア を 使用 し まし た ", /* 9x2297 */ 
31: セク タ が 見 つか り ま せん 「", /* 9x29298 */ 
32: “ブリ ンタ が つなが っ て いま せん ", /* ix2299 */ 
3: " 番 き 込み エラ ー"。 /* gx?229a */ 
34: 謗 み 込み エラ ー『, /* gix22b */ 
35: “エラ ー が 発生 し まし た ", /* xx22Mc */ 
36: "プロ テク ト を 外し て 下さ い 『, /* 9x29gd */ 
37: "書き 込み 不能 で す . ディ スク を 取り 替え て 下さ い " 
38: /* ggx?22e */ 
89 
49: 
41: int error(errno, ST, PC) 
42: unsigned short errno, Sr: 
43: unsigned jnt poi 
44: ( 
45: if (errno == 9x91f 1 errno == 3f) { 
46: fputs(mes 氏 9], stderr): 
47: ) else if (errno >= x8 表 9) 5 
48: I0CSERR(errno): ' 
49: )】 else if (9x 角 2 <= errno && errno <= 中 9998) 
59: fputs(mes 氏 Lerrno - 1], stderr): 
51: / else if (errno < 9x1999 1| LOW(errno) < 9x91 11 9x9e < LOW(errno | 。 に ぶし E て 
52: I0CSERR(errno): 
53・ ) else { 
54: fputs(mesl[LOW(errno) - 1], stderr): 
55: return 9: 
56: 
57: fprintf(stderr, " (SR=$%4x:PC=$%98x)", sr, pc): 
58: return 
59: } 
69: 
61: void main() 
52: 
63: INTVCS(TRAP14, _error)! ………… エラ ー 理 の 割 入 み ベ クタ を _error ル ー チ ン に 変更 する 
64: KEEPPRCPRGLEN」。 8)! …… で ドド プロ グラ ム を 常駐 終了 する 
65: } 
リス ト 2. 日 エラ ーー 処理 (low.s) 
1: SAVEREG reg d⑳-d2/a-a2 
2: 
を xdef __eTTOT 
4: error:movem.| SAVEREG,-(SP) ………… レジ スタ を 退避 する 
5・ mOve.| 2(a6),-(SP) error(errorcode, sT,。 Pc) ……… エラ ー 発 生 時 の PC を スタ ッ ク に 積む 
6: move.| (a6),-(SP) ……… エラ ー 発 生 時 の SR を スタ ッ ク に 積む 
7 move.| dd7,-(SP) …… エラ ー コ ー ド を スタ ッ ク に 積む 
8・ JSP _eTTOF 2 error 関 数 を 呼び 出す 
9: lea 12(SP).SP 
WM 5 PP error 関 数 の 戻り 値 が 0( 中 止 ) だ っ た 場合 に 終了 処理 を 行 う 
12: return: movem.| (SP)+,SAVEREG …………… レジ スタ を 復帰 する 
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13: rte 
14: abort: move.w #$ff,Ldd 」 
15・ trap #]15 終了 処理 を 行う 
16: bsr.S return 
WW と end 
田 その 他 


これ ら の 関数 は 。 ファ イル ハン ドル や ドラ イブ が 割り 当て られ た デバ イス ドラ イ バ を 直接 制御 
する 関数 や 。 漢字 変換 プロ セッ サ 用 の 変換 ウィ ンド ウ を 制御 する た め の 関 数 で す . し か し 特別 な 
用 途 以 外 に は 。 これ ら の 関数 を 使う こと は な いで し ょ う . 


4..4 10CS コー ル ラ イブ ラリ (DCSLIB.A) 


X68000 の IOCS を 名 前 で 呼び 出す た め の ラ イブ ラリ で す . IOCS は , 最も 低位 の ライ ブラ リ で 
すか ら 。 使用 に あたっ て は C じ ライ プラ リマ ニュ アル だ け で な く 。 デ プロ グラ マー ズ マ ニュ アル の 
IOCS コー ル の 章 に も 目 を 通し , それ ぞ れ の 関数 に つい て よく 理解 し て か ら 使 っ て くだ さい . 

また 。 コン パイ ラド ライ バ を 使っ て コン パイ ル す る 場合 。 この ライ ブラ リ は リン ク の 対象 に な 
り ま せん か ら , コン パイ ラド ライ バ の ググ Y” オプ ショ ン を 指定 する 必要 が あり ます . 


一 キー ボー ド セ ン ス 関 数 

これ は キー ボー ド の 状態 を 直接 調べ た り , ソフ トキ ー ボ ー ド や 電卓 を サポ ー ト する た め の 関 数 
で す . この 関数 を 使う こと に よっ て 。 ど の シフ トキ ー を 押し て いる の か と いっ た キー ボー ド に 対 
する 詳し い 情 報 な ど を 得る こと が で きま す . 


画 画面 制 個 関 数 
これ ら の 関数 は , 処理 する 対象 に よっ て 以下 の 4 つ に 分 けら れ ま す . 


・ 画 面 に 関す る 処理 

・ テ キス ト 画 面 に 関す る 処理 

・ グ ラフ ィ ッ ク 画 面 に 関す る 処理 
・ ス プラ イト 画面 に 関す る 処理 


画面 に 関す る 処理 に は , 画面 の モー ド や コン トラ スト の 変更 , 画面 の スク ロー ル が あり ます . 
これ ら の 関数 は テキ スト 画面 ,。 グラ フィ ッ ク 画 面 。 ス プラ イト 画面 に 影響 を 及ぼ し ます . 

テキ スト 画面 に 関す る 処理 に は , 画面 へ の 文字 出力 や 1 行 抹消 な どの 画面 制 件, そし て テキ ス 
ト 画 面 へ の 描画 が あり ます . この うち 文字 出力 や 画面 制御 は で きる 限り CLIB の 関数 を 使っ て 行 


20/ 


4 章 X68000 の プロ グラ ミン ク グ 環境 


いま す .。 まだ た, テキ スト 画面 描画 関数 を 使う と か ん た ん に テキ スト 画面 上 に パタ ー ン や 箱 を 表示 


まあ に だ が で きま すず す 。 


グラ フィ ッ ク 画 面 に 関す る 処理 に は 。 その 制御 や 描画 が あり ます . 


を 使い , 競合 が 発生 し な いよ うに し ます . 


スプ ライ ト 画 面 に 関す る 処理 に は , スプ ライ ト 画 面 の 初期 化 や 表示 な どの 制御 。、 ス プラ イト パ 


ター ン の 定義 や 抹消 , バッ ク グ ラン ド の 設定 や 制御 な ど が あり ます . 


リス ト 4.9 に 示し た プロ グラ ム は IOCSLIB を 使っ て グラ フィ ッ ク 画 面 に デジ タル 時 計 を 表示 
する プロ グラ ム で す . 画面 の 初期 化 な ども IOCSLIB だ け で 行っ て いま すか ら 。, 参考 に し て くだ さ 


MS 


リス ト 2. 時 計 の 表示 (clk.C) 


#include <stdio.h> 
#include <iocslib.h> 
#include <time.h> 


#define SLOFF 19 
#define BODYOFF 49 
#define SPACE 5 

#define SEGSPC 19 
#define DOTH 49 


て C の CC-=- コ OO で な < くい 


19: #define SIZE (SLOFF + BODYOFF + SLOFF) 
11: #define SEGH (SLOFF* 2+ SPACE * 2 + SIZE) 
12: #define SEGV (SLOFFx 2+ SPACE*4+SIZE*2) 


14: #define XOFF 58 
15: #define YOFF 19M 


17: #define COL 15 


18: #define PAT 565535 











19: 

29: static char SEGMENT[19] = { | 

の] 1 x77, 9x24, 9x6b。 6d」。 9x3c」。 | 0" "9" の 数 値 を 7 セグ メン ト で 表し た デー タ 
22: x5d, 9x5f, 74, Mx7f, 9x7c 

2 ボ 

24: struct LINEPTR line = {9 9 9 9 PAT 
25: struct FILLPTR fill = 人 9 9 9 9 

26: 

27: void dot(x, y, cl) 

29 ゃ INE 光 。 。 多 15 

29: { 

3: int ji 

31: 

いや line.color = cli: 

33: for (ij = j」< SLOFFi ji+) 5 

34・ Iine.xl = x - 」/ 2: 

35・ line.y1 =y+ ii 

36: line.x2 = x+ ij/ の 2: 

に が line.y2 =y+ ii 

38: LINE(&line): 

39: ) 

4: line.xl = x - ji / 2: 時 , 分 , 秒間 の ドッ ト を 1 つ 描 く 
41: line.y1 =y + ji 

42: line.x2 = x+ ij / 2: 
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この うち 捕 画 関数 は 座標 な 
どの 指定 が 難し いた め BASLIB の 関数 を 使い ます が , その 場合 は 制御 関数 も BASLIB 内 の 関数 
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435 line.y2 =y+ ii 

44: LINE(&line): 

45: y+= SLOFF * 2: 

46: for (ji = 9: ji < SLOFFi j++) { 

47: Neue1 ミー 8 

48: line.yl =y - jj 

49: line.x2 = x+ ji / 2 の : 

50: line.y2 =yーji 

51: LINE(&line): 

52: ) 

53: ) 

54: 

55: void dots(x, y) 

Ao 5 門 分, 秒間 と ドッ 
58: dot(x + 29, y + (SLOFF + SPACE + BODYOFF / 2), COL): UE 
59: dot(x + 29 y+ (SLOFF * 3 + SPACE * 3 + BODYOFF + BODYOFF / 2), C 

0L): 

69: } 

61: 

62: void vseg(x, y, cl) 

09。 も X。 \。 Cl 

64: 

65: int 15 

66: 

67・ line.color = clij 

68: fill.color = cli 

69: for (ji = 9 j < SLOFFi ji+) { 

79: line.xl =x- ji 

近 由 6 line.yl =y+iij 

リン line.X2 = x+ ij 

『 た や line.y2 =y+ii 

と LINE(&line): 

75: 還 志 
76: 。 fillx1 = x- SLOFF: 0 
年 fill.y1 = y + SLOFF: 

78: fill.x2 = x + SLOFF: 

79: fill.y2 = y + (SLOFF + BODYOFF): 

89: FILL(&fill): 

81: y += SIZE: 

82: for (i = ij< SLOFFi ji+) { 

83: NO.X1 ニル メー 15 

84: line.yl =yーji 

85: line.x2 = x+ ij 

86: ine.y2=yー 1 

87: LINE(&line): 

88: 

89: } 

9: 

91: void hseg(x, y, cl) 

9Z2: IDt X。 y。 CI 

93: { 

94: Int ij 

95: 

96: line.color = cl: 

97・ fill.color = cli 

98: for (ji = 9: ji < SLOFFi ji+) { 

99: line.xXl = x+ ji 
199: line.y1 =y - ji 
191 : line.x2 = x+ ii 
192: line.y2 =y+ ji 
193: LINE(&Iline): 
194: 9 as 
195: fill.xl = x+ SLOFF: HO 2 
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196: 
197: 
198: 
19: 
119: 
1 5 
人 本 
HH 
114: 
115: 
116: 
117: 
118: } 
119: 


fill.yl = y - SLOFF: 
fill.x2 = x + (SLOFF + BODYOFF): 
fill.y2 = y + SLOUFI5 
FILL(&fill): 
X += SIZE: 
for (ji = 9 ij < SLOFFi i++) { 
Iine.X] = X - 1j 
line.y1l =y - 1 
line.x2 = xX - 15 
line.y2 =y+ ii 
LINE(&Iline): 
) 


129: void segment(x, y, n) 
1 1 多 。 \。 人 


122: { 
123・ 
124: 
125: 
126: 
ギ 馬 
128: 
129: 
139: 
所 る 臣 
9 
133: 
134: 
135: 
136: 
1 議 / 
136: 
139: 
14: 
141: 
142: 
143: 
144: 
145: 
1465: 
147: 
148: 
149: 
159: 
151: 
152。 
159* 
154: 
155: 
156: } 
157 バ 


char Seg, 


X += 109: 

y += 19: 

seg = SEGMENT[n]: 
if (seg & 路 四 ) 


hseg(x + SPACE.y+ (SIZE*2+ 5SPACE * 4), COL): 


else 


hseg(x + SPACE,y+ (SIZE* 2 + SPACE * 4), 9): 


jf (seg & Mx92) 


vSeg(x, y + (SIZE + SPACE * 3), COL): 


else 


vseg(x, y+ (SIZE + SPACE * 3), の : 


if (seg & Mx94) 


vsegt(x+ (SIZE+ SPACE * 2), y+ (SIZE + SPACE * 3), COL): 


else 


vseg(x + (SIZE+ SPACE * 2 の ), y+ (SIZE+ SPACE * 3), の : 


ijf (seg & x98) 


hseg(x + SPACE, y + (SIZE + SPACE * 2), COL): 


else 


hseg(x + SPACE, y + (SIZE + SPACE * 2), 


if (seg & 中 19) 

vseg(x, y + SPACE, COL): 
else 

vseg(x, y + SPACE, の ): 
ijf (seg & 中 29) 


vseg(x + (SIZE + SPACE * 2), y + SPACE, 


else 


vseg(x + (SIZE + SPACE * 2), y + SPACE, 


ijf (seg & Mx49) 

hseg(x + SPACE, y, COL): 
else 

hseg(x + SPACE, y, 9 の: 


158: void prtime(h, m, s) 
159: int h, m, Si 


169: { 
161: 
162: 
163: 
164: 
165: 
166: 
167: 
168: 
169: } 


メリ j 0 


segment(XOFF + (SEGH * 9 + SEGSPC 
segment(XOFF + (SEGH * 1 + SEGSPC 

dots(XOFF + (SEGH * 2 + SEGSPC 
segment(XOFF + (SEGH * 2 + SEGSPC 
segment(XOFF + (SEGH * 3 + SEGSPC 

dots(XOFF + (SEGH * 4 + SEGSPC 
segment(XOFF + (SEGH * 4 + SEGSPC 
segment(XOFF + (SEGH * 5 + SEGSPC 


2 全 : 茶 


C く に らら (ーー ビー 思 


+ キキ キオ 十 十 十 


DOTH 
DOTH 
DOTH 
DOTH 
DOTH 
DOTH 
DOTH 
DOTH 


り ): 


COL): 
9): 


ネ り ), 
* ), 
* り ), 
* ] ), 
まま 。 
* 1 ), 
* の 2), 
* 2), 


YOFF, h / 
YOFF,h% 
YOFF): 

YOFF, m/ 
YOFF, m% 
YOFF): 

YOFF, s / 
YOFF, s % 


1 桁 の 数 値 を 7 セグ 
| メン ト で 表示 する 





19): 
19): 

時 間 を 調べ て デジ タル 
19)! | 時 計 の よう に 表示 する 
19): 


19): 
19): 
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179: 
171: void clock() 
172: *( 
173: Struct tm *lctime: 
174: Int gmt: 
に と 
176: time(&gmt): 
177: lctime = localtime(&gmt): 
178: prTtime(lctime->tm_hour, lctime->tm_min, lctime->tm_sec): 
179: } 
18: 
181: void main() 
182: { 
183: CRTMOD(16): | を し て 
184: G_CLR_ON(): 」 
185: while (!) | 1 
186: GDAMCO3 | PP 
187: 
画 漢字 処理 関数 


漢字 の 読込 みや 外字 の 読込 みや 設定 を 行う 関数 で す . また , ロー マ 字 変換 .、 シフ ト JIS コー ド 
と JIS コー ド 間 の 変換 を する 関数 も 含ま れ て いま す . 


画 口 G- ご ヨコ ら 〇 や プリ ンタ の 制御 関数 

RS-232C の 設定 や 回線 状 態 の 読込 み 。 デー タ の 転送 を する 関数 が 含ま れ て いま す . 

プリ ンタ の 制御 関数 に は , プリ ンタ ポー ト の 初期 化 や 状態 を 調べ る 関数 、 プリ ンタ ヘ へ デー タ を 
出力 する 関数 が あり ます .。 デー タ 出 力 関数 に は OUTLPT 関数 と OUTPRN 関数 の 2 種類 が あり 
ます . 漢字 な どの 2 バイ トコ ー ド を 出力 する 場合 , OUTLPT 関数 だ と 2 バイト の デー タ が その ま 
ま 出 力 さ れ ま す が ,。OUTPRN 関数 は その デー タ が 漢字 コー ド だ と いう こと を 認識 し て , プ リン タ 
に 対す る 制御 コー ド を 付加 し て 出力 し ます . 


較 マウ ス と ジョ イス ティ ッ ク の 制御 や 読取 り 関 数 
マウ ス の 移動 秀 囲 を 決め る 関数 。 マウ スカ ー ソ ル の パタ ー ン 設定 関数 そし て マウ スカ ー ソ ル 
で アニ メー ショ ン を する 関数 。 ま た 。 マ ウス の 位置 や ボタ ン を 調べ る 関数 な ど で す . 


田 サウ ンド 関数 

サウ ンド は, ADPCM に 関わ る 関数 と FM 音源 に 関わ る 関数 に 分 れ ま す . 

ADPCM に 関連 の 関数 は , DMA 転送 の 種類 別に 3 種類 あり ます . その うち ADPCMINP 関数 
と 。 ADPCMOUT 関数 が 最も か ん た ん に 使え る 関数 で す . これ 以外 に も ADPCMSNS 関数 , 
ADPCMMOD 関数 が あり ます . リ スト 4.10 で は ADPCMINP 関数 を 使っ て いま す . 

FM 音源 を 扱う 場合 は ,C 言語 や アセ ン ブ ラ か ら で は な く ,X-BASIC の MML で 制御 する の が 
は る か に 便利 で 確実 で す . 
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リス ト 4.10 に ADPCM を 用 いて 4 秒 以 内 の 音声 を BEEP.SYS と 同じ 15.6KHz の サン プリ 
ング 周波 数 で 録音 や 再生 する プロ グラ ム を 示し ます . な お 録音 する 音声 は , X68000 の 育 面 に ある 
オー ディ オ 入 力 端 子 か ら 入 力 さ れる 音声 で す . 

使用 法 は , 炊 の と お り で す . 


adpcm 一 r 


< ファ イル 名 >  … 録音 時 


adpcm 一 DP < ファ イル 名 >  …: 再生 時 


リス ト 2.1 ADPOM を 使っ た 録音 と 再生 (adpCm.C) 


ト ら FoO FSS FES FOO らい 
O〉 っ Cm Rh で OKO ルー 


C う っ ト S う FOO 
や で の 〇 ぐー ココ 


て うら て C う C う 
ここ ここ 


CS くう < くう CS 
っ JJ の) C7 


C う て うら 
CO CS 


いう ーー レー レー ーー ーー レー ーー ーー レー に ーー 
で や (の 〇 OO で ココ O つ の で な CO ら >ー 選 で の = ここ - コ OO つの 〇 の 8 C う ト 5 ーー 


・ 時 include 
・#jnclude 
・#jnclude 


#jnclude 
#include 
#include 


#define 
#define 
#define 


・ #define 
・ #define 
・ #define 
・ #define 
・ #define 


Int 
Int 


if (argc != 3) { 


<stdio.h> 
<eTTOT.h> 
<fcntl.h> 


<ji0.h> 


<jiocslib.h> 


<stat.h> 


ADPCMMODE 
END 
SECMAX 
SECSIZE 
ERROR 
RMODE 
WMODE 
PMODE 


gV[]: 


SIZe: 
fdj 


り x9493 /* 15.6KHz2 サ ンプ リン グ , ステ レオ 出力 */ 
り xM 

4 

7899 /* ADPCMMODE で 1 秒間 に 使う サイ ズ x/ 

た び 

(0_RDONLY | 0_BINARY) 

(0_CREAT | 0_TRUNC | 0_WRONLY | 0_BINARY) 
(S_IREAD | S_IWRITE) 


・ static unsigned char Buffer[SECMAX * SECSIZE]! ……… ド | SECMAX 秒 の 音声 デー タ 用 の バッ ファ 
・ void record(unsigned char *, jnt), play(unsigned char *,。 jnt)) …0tlilit…… 録音 する 関数 と 再生 する 関数 


・ YOId main(argc, argv) 
・ Char *ar 


ee 
fprintf(stderr, "Usage : %s {-rI-p}) filename\n”, argv[9]), | 引数 が 正しく な い 場 合 に 使 


exit(1): 


| い 方 を 表示 し て 終了 する 
| 


jf (strcmpi(argv[1], "-r”) == 9) 


)) 【 


」): 


if ((fd = 


open(argv[2], WMODE, PMODE)) == ERROR) { | 


perror(argv[2]): し ファ イル を オー プン する 


exit(1): 


record(Buffer, sizeof(Buffer))j ……… ド ドバドバ 4 秒 の 音声 デー タ を 録音 する 


if ((size 


write(fd, Buffer, sizeof(Buffer))) < sizeof(Buffer 』 


if (size != ERROR) 


fprintf(stderr, "%s: ディ スク が いっ ぱい で す \* ロ " 


else 


perror(argv[2]): 
close(fd): 
unlink(argv[2]): 
exit(1): 


) 
close(fd): 


| 
『 | 音声 デー タ を ファ イル に 
| 書き出す. エラ ー が 発生 し 
た 場合 は エラ ー 処 理 を し 
| て 終了 する 
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47: ) else { 

48: if ((fd = open(argv[2], RMODE)) == ERROR) { | ' 

49: perror(argv[2]): | ファ イル を オー プン する 

59: exit(1): 

01: 「 

52: if ((size = read(fd, Buffer, sizeof(Buffer))) == ERROR) (| 

53: perror(argv[2]): 再生 する 音声 デー タ を 読み 込 
94: close(fd): む . エラ ー が 発生 し た 場合 は 
0O・ exit(1): エラ ー 処 理 を し て 終了 する 
56・ 

57・ close(fd): 

99・ play(Buffer, size)i 音声 デー タ を 再生 する 

59: 

69: exit( の : 

61: } 

62: 


63: void record(buf, size) 
64: unsigned char *buf: 


65: { 

66: ADPCMMOD(ENDD) oo ADPCM 処 理 を 終了 させ る 

57 : ADPCMINP(buf, ADPCMMODE, size)i 録音 を 開始 する 
68: while (ADPCMSNS() != ENDOE oom 録音 が 終了 する まで 待つ 
69: } 

79: 


71: void play(buf, size) 
72: unsigned char *buf: 


り K を 

74: ADPCMMOD(ENDD 一 ADPCM 処 理 を 終了 させ る 

75: ADPCMOUT(buf, ADPCMMODE, size)i oo 再生 を 開始 する 
76: } 





田 シス テム 制御 関数 

X68000 の ROM の バー ジョ ン や 起動 きれ て か ら の 時 間 を 調べ る 関数 メモリ の 読み 書き を す 
る 関数 。 時 間 や 日 付 の 設定 や 読込 み を 行う 関数 な ど が 含ま れ て いま す . また , X68000 特有 の ア 
ラー ム に よる 電源 の ON プ OFF を する た め の 関 数 も あり ます . 

例 と し て 。X68000 を 起動 する 時 刻 と , 起動 し て か ら 停止 す る まで の 時 間 . そし て 起動 と 停止 を 
設定 する プロ グラ ム を あげ て お きま す ( リ スト 4.11). この プロ グラ ム を 使え ば , 毎日 , 毎週 。 毎 
月 と いう 単位 で これ ら の 設定 を 行う こと が で きま す ( 表 4.6). 


リス ト 2. ] ] アラ ー ム コマ ンド (alarm.C) 


#include <stdio.h> 
#include <ctype.h> 
#include <string.h> 
#include <iocslib.h> 


#ifdef TRUE 

・# undef TRUE 

・# undef FALSE 

・ #endif 

・ #define TRUE (1) 
#define FALSE (9) 





マク ロ "TRUE" , “FALSE” の 定義 


ーー や の で = コロ O つ の で な の (いや 憲 


ーー 
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ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ン ーー テテ oo 


2』 オ 


・ #define 
・ #define 
・ #defijne 


・ #define 
・ #define 
・ #define 
・ #define 


・ typedef 
・ typedef 


・ INTERVAL: 
・ typedef enum { 


・ 】 ALARMCTRLi 
・ typedef struct { 


・ ) ALARMDATA: 
・ typedef enum ? 


・ void GetAlarm(buf ) 
・register ALARMDATA *bufi 
( 


DISABLE (9) | 
ENABLE (1) ! ALARMMOD 関 数 の 引数 に 利用 する マク ロ 
NOTICE (2) 


isDay(a ) 
isHour(a) 9 && (a) <= 
isMinute(a) ((a) >=  && (a) <= 
ubcd2tobin(a) (((a) >> 4 & Bxf) * 19 + ((a) & 9Xf)) 


int BOOL: 
enum 
EVERYDAY, 
EVERYWEEK, 
EVERYMONTH 


アラーム の 間隔 を 表す 





COMTV, 

COM, 
TVCONTROL, 
TVCTRL_PON, 
JMPENTRY 


* アラ ー ム 発生 後 の 動 作 を 表す 





int week, day, hour, minute: 
Int offtime: 

INTERVAL jinterval: 

ALARMCTRL mode: 

Int job: 





アラ ー ム の 設定 内 容 を まとめ た 構造 体 





NOERR, 
NOTOPT, 
BADDAY, 
BADWEEK, 
BADHOUR, 
BADMINUTE, 
BADOFFTIME, 
FAILSETALARM, 


エラ ー の 種類 を 表す 


・ } ERRTYPE: 


・ static *local_errmsg[] = 5 


"不正 な オプ ショ ン を 指定 し まし た ", 
"日 の 値 が 不正 で す ", 

" 幅 日 の 指定 が 不正 で す ", 

"時 の 値 が 不正 で す ", 

"分 の 値 が 不正 で す ", 

"電源 0FF ま で の 時 間 の 指定 が 不正 で す ", 
"アラ ー ム の 設定 に 失敗 し まし た " 


が 5 
・ ERRTYPE localerrno: 


8 現在 の アラ ー ム の 設定 内 容 を バッ ファ に 格納 する 


Int timei 


0 符号 な し BCD2 桁 の 数 値 を バイ 
ナリ に 変換 する マク ロ 


ALARMGET(&time, &buf->offtime, &buf->job)) の の om 現在 の アラ ー ム 設定 内 容 を 得る 


jf ((buf->week = ubcd2tobin(time >> 24 & ixf)) <= 6) { 


buf->jnterval = EVERYWEEK: 
) else { 


buf->day = ubcd2tobin(time >> 16 & ff): 


OH 曜日 の 値 が 正しけれ ば , アラ ー ム 
の 発生 間隔 は 週 単 位 (毎週 ) 
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76: if (isDay(buf->day)) …… ド ボー 日 の 値 が 正しけれ ば , 毎月 . そ う で な けれ け 毎 日 
間 buf->jinterval = EVERYMONTH: 

78: else 

79: buf->interval = EVERYDAY: 

89: ) 

81: buf->hour = ubcd2tobin(time >> 8 & 9xff): 

82: buf->minute = ubcd2tobin(time & ff): 

83: if (buf->job == ) 

84: buf->mode = COMTV 

85: else if (buf->job == -1) 

86: y 半 ys = COM: 

87・: else if (buf->job >= 1 && buf->job <= 9x1f) 2 6 
88: buf->mode = TVCONTROL: 0 2 
89: else if (buf->job >= 9x29 && buf->job <= 上 x3f) 
9: buf->mode = TVCTRL_PON: 

J り 1 < else 

92: buf->mode = JMPENTRY: 

93: } 

94: 

95: void PrintAlarmCnf(OO) imi 現在 の アラ ー ム の 設定 内 容 を 表示 する 
96: 

97: static char *weekname[] = { 

d8: ” 半 ュ "月 提 時 " 水 ", 5 な "上" 
99: 3 

199: ALARMDATA buf: 

191: 

192: if (ALARMMOD(NOTICE) != ENABLE) 【 

193: puts("ALARM: 現在 アラ ー ム は 禁止 され て いま す "): 
194: return: 

195: ) 

196: puts("ALARM: 現在 アラ ー ム は 利用 され て いま す "): 
197: GetAlarm(&buf): 
198: fputs("\t 時 刻 :  ", stdout): 
199: switch (buf.interval) { 
119: case EVERYMONTH : 
まお printf(" 毎 月 %d 日 ", buf.day): 
1 break: 
1183: case EVERYWEEK : 
114: printf(" 毎 週 %s 曜 日 ", weekname[buf.week]): 
115: break: 

116: default : 

が fputs( "毎日 ", stdout): 

118: break: 

119: 

129: printf(” %d 時 %d 分 \n", buf.hour, buf.minute): 
121: fputs(" 半 電源 :  ", stdout): 

122: if (buf.offtime == ) 

126: puts("OFF し な い "): 

124: else 

125: printf("%d 分 間 ON に する WW", buf.offtime): 
126: fputs("\t モ ー ド : ", stdout): 

127: switch (buf.mode) { 

128: case COMIV : 

129: puts(”" コ ンピュータ & テ レビ ”): 

139: break: 

13.1.。 case COM : 

132: puts(" コ ンピュータ の みり"): 

133・ break: 

134: case TVCONTROL : 

135: puts(" テ レビ コン トロ ー ル ”"): 

136: break: 

13 たら case TVCTRL_PON : 

138: puts(" 電 源 を ON に し た 後 で , テレ ビ コ ン トロ ー ル ”"): 
139: break: 


4 章 X68000 の プロ グラ ミン グ 環 境 





149: default : 








141: printf(”" ア ドレ ス $%98X へ ジャ ンプ する WW ロロ”, buf.job): 

を りや break: 

143: 

144: puts(” ): 

145: } 

146: 

147: BOOL SetAlarm(p) 0 あら た に アラ ー ム を 設定 する 

148: register ALARMDATA *p: 

149: { 

159: register jnt datetime: 

151 

152: switch (p->interval) { 

153: case EVERYMONTH : 

154: datetime = 9xff 六 的 認 | p->day / 19 << 29 | p->day % 19 << 16: 

155: break: 

156: case EVERYWEEK : 

157: datetime = p->week << 24 | xxff 上 Mi ALARMSET 関 数 の 引数 
158: break: の 仕様 に 合わ せ て , 
159: default : datetime を 作成 する 
169: datetime = xffffMM: 

161: break: 

162: 

163: datetime |= p->hour / 19 << 12 | p->hour % 19<<8 Il 

164: p->minute / 19 << 4 | p->minute % 1 

165: if (ALARMSET(datetime, p->offtime, 9) == -1) { 

166: return FALSE: 

167: ) 

168: return TRUE: 

169: } 

179: 

171: BOOL stoud2(src, dst。 delm) nn 文字 列 束 src より 最大 2 桁 の 符号 な し 10 進 表現 を 数 値 に 変換 し , 
172: char **src: dst に 格納 する . delm で 指定 され た 区 切り 文字 が な けれ ば エラ ー. 
173: int *dst: 実行 後 , *※src は 区 切り 文字 の 次 の 文字 を 指す . 

174: char delmi 

175: { 

176: register char *p: 

に た が 5 Tegister int ni 

178: 

1 /9・ P = *SFC: 

189: if (xp != ” 靖 ) &8 jisdigit(*p)) { 

181: h = *p++ ー " 切 '! ] 

182: if (xp != ” 聞 ) && isdigit(*p)) | 。.- 

183: nn * 19+ *p++ - "の: | 本 あ る 場合 の 処理 

184: if (*p == delm) { 

185: *dst = ni 

186: STC ニ = ++Di 

187: return TRUE: 

188: ) 

189: ) 

19: return FALSE: 

191: } 

192: 

193: int chkWeek(s) ………… オプ ショ ン に 含ま れる 曜日 の 指定 が 正しい か どう か 

194: register char **s: チェ ッ ク す る . 実行 後 *s は , 曜日 の 指定 の 直後 を 指す 

195: { 

196: static char *opt_w[] = { 

197: "SUN", "MON", UE 。 WED 。 illu 居 2 Da 

198: 5 

199: register int ji, Ji 

29: 

291: for (ji 1 < 7: ji+) 【 4 

292: for (j」 = 9 」< 3j j++ 3 = っ 8 
293: if (toupper(Cxs + j)) != *(opt_w[i] + お )) ーーーーーー 
2M4 : break: 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー フ oO 
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295: ) 

296: if (」== 3) { 

297 : XS + ニ = 3 

298: return jij: 

299: 

219: ) 

1 ます) return -1: 

メレ 2 還 

213: 

214: BOOL getopt(arg, buf) | オブ ショ ン を 得る 

215: char *arg: 

216: register ALARMDATA *buf: 

yo 手 

218: switch (tolower(*arg)) { 

219: C8S6 アラ ー ム の 周期 を 毎月 と 指定 し た 場合 

22 上 : 8Tg++: 

2 紀 if (Istoud2(&arg, &buf->day, |) 11 !isDay(buf->day)) { 

の の localerrno = BADDAY: 

223: return FALSE: 

224: ) 

225.: buf->interval = EVERYMONTH: 

226: break: 

2 の 2/* Ca8S6 WO im アラ ー ム の 周期 を 毎週 と 指定 し た 場合 

226: arTg++。 

229: if ((buf->week = chkWeek(&arg)) < 9 II *argt+ ! リ = リリ) 5 

230: localerrno = BADWEEK: 

231・ return FALSE: 

232: | 

の きり < buf->jnterval = EVERYWEEK: 

234: break: 

235・ CaSe 和 CECCECECEEEEE アラ ー ム の 周期 を 毎日 と 指定 し た 場合 

236: 8Tg += 2 の : 

297 に buf->jnterval = EVERYDAY: 

238: break: 

Z39・ default : 

240: localerrno = NOTOPT: 

241: return FALSE: 

242: ) 

243: if (1stoud2(&arg, &buf->hour, | ) 11 1isHour(buf->hour)) 5 

244: localerrno = BADHOUR: 

245: return FALSE: 

246: ) 

247: if (!stoud2(&arg, &buf->minute, 「-') 1 !isMinute(buf->minute)) { 

248: localerrno = BADMINUTE: 

Z49: Teturn FALSE: 

259: 

251: if (xarg 1= "\ の 7) 5 

252: if (!stoud2(&arg, &buf->offtime, '\)) 11 buf->offtime > 69) 5 

253・ localerrno = BADOFFTIME: 

254: return FALSE: 

255: 

256: ) else { 

257: buf->offtime = 

258: ) 

259: return TRUE: 

269: } 

261: 

262: void US8g&e( ) PV てこ ツヤ 使用 法 を 表示 する 

263: { 

264: fputs(" 使 用法: ALARM[ ON | OFF | {fm<ddzlw<str>ld】:<hh>: <mm>-[<t im 
e>]]\n”", stderr): 

265: fputs("\t<dd>, <hh>, <mm> 日 , 時 , 分 を 表す 1 進数 (最大 2 桁 ) \n”, stde 
TT) 

266: fputs(”"\t<str> 曜日 を 表す 英語 \n", stderr): 


ルク 


4 章 X68000 の プロ グラ ミン グ 環 境 





267: fputs(”\t<t ime> 電源 0FF ま で の 時 間 (分 単位 , 最大 69 分 ) \n", 
stderr): 

268: fputs(”"\n", stderr): 

269: )} 

279: 

271: void errout() ………… エラ ー メ ッ セ ー ジ を 表示 する 

272 ぶ | 4 

273: ijf (localerrno != NOERR) { 

274: fputs("ALARM: ", stderr): 

275: fputs(local_errmsg[localerrno], stderr): 

276: fputs("\n”, stderr): 

2 

278: uS8ge(): 

279: } 

289: 


281: void main(argc, argv) 
282: int argcC: 
283: char *argv[]: 


284: { 
285: 
286: 
287・ 
288: 
289: 
290: 
291 
292・ 
293: 
294: 
295・ 
296: 
297: 
298: 
299: 
30M: 
391 : 
302: 
303: 
304・ 
305: 
306: 
397・ 
398: } 
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ALARMDATA alarmbufi: 


localerrno = NOERRD の エラ ー 番 号 を 初期 化 
if (argc <= 1) 【 


Prin 
) else ji 


tAlarmCnf(): 
f (strcmpi(argv[1], "ON") == の) 【 


ALARMMOD(ENABLE): 
puts("ALARME アラ ー ム を 許可 し まし た り "): 


) else j 


f (strcmpi(argv[1], "OFF”) == 9) { 


ALARMMOD(DISABLE): 
puts("ALARM: アラ ー ム を 禁止 し まし た "): 


} else ji 


f (getopt(argv[1], &alarmbuf)) 【 


if (SetAlarm(&alarmbuf ) ) 


}) else i 


puts("ALARMIE アラ ー ム を 新た に 設定 し まし た "): 
f (strcmpi(argv[1], "-27) == の 【 「 


US8ge( ): | ヘル プ ( 使用 方 法 ) を 表示 する 


) else j 


f (strcmpi(argv[1], "-help”) == 9) { | 


USage( ) 


】) else { 


errout(): 
exit(1): 


) 
exit(9): 


書式 ALARM オプ ショ ン 
@ オ プシ ョ ン 


| ON 。 アラ ー ム の 発生 を 許可 する 
アラ ー ム の 発生 を 禁止 する 















毎月 指定 し た 日 に アラ ー ム を 発生 させ る 
毎週 指定 し た 曜日 に アラ ー ム を 発生 させ る 
<str> は 曜日 を 表す 英語 (3 文字 の 略称 ) 


W<str> 時 間 
Sun, mon, tue, wed, thu, fri, sat 


毎日 アラ ー ム を 発生 させ る 
簡単 な 使用 法 を 表示 する 


4.3 開発 環境 を 整え よう 














時 を 表す 最大 2 桁 の 10 進数 (0 て 23) 
アラ ー ム が 発生 し て か ら 電 源 を OFF する まで 
い > ユビ ーー ーー の 
<timey の 時 間 . 分 で 表し , 最大 60 分 まで 指定 で き 
し な い 
注意 : <mm> の 後ろ の “一 ” は 省略 で き な い 
ALARM M13 : 7 : 3 全 
毎月 13 日 午前 7 時 31 分 に アラ ー ム を セッ ト す る 
ALARMD:0O: 0-47 
毎日 午前 0 時 0 分 に アラ ー ム を セッ ト す る 


@ 時 間 
る . 無 指定 か ある い は は 0 の 場合 は 電源 を OFF 
@ 使用 例 
電源 は ON の まま 
起動 し て か ら 47 分 後に 電源 を OFF する 






表 4.5 アラ ー ム コマ ンド の 仕様 


較 ディ スク ドラ イブ 

ディ スク か ら デ ィ レ クト リ や ファ イル 構造 に 関係 な く , 特定 の セク 夕 を 読み 込む せこ と が で きる 
関数 で す 。 一 般 に は あま り 使 われ な いで し ょ う が 。 誤 っ て 削除 し て し まっ た ファ イル を 復活 させ 
る と か 。 Human68k の ディ レク トリ 構造 を 調べ る と か いっ た 特別 な 用 途 で は ぜひ と も 必要 な 関数 
と 5$ 有 えま す 。 


田 その 他 
以上 で 紹介 し な か っ た 関数 と し て は , X68000 用 の TV や キー ボー ド の LED を コン トロ ー ル す 


る た め の 関 数 が あり ます . これ も , 知っ て お く と 便利 な 場合 が ある か も し れ ま せん . 


2. つ 開発 環境 を 整え よう 


パッ ケー ジ の 内 容 に つい て 理解 で きた ら 。 プロ グラ ム を 開発 する た め の 環 境 を 作っ て み ま し ょ 
う . ここ で いう 環境 と は 。 ディ レク トリ 構成 。 環境 変数 。 デバ イス ドラ イ バ の 組込み と いっ た 作 
業 を する た め の 準 備 を 指し ます . この 環境 を どの よう に 作る か に よっ て , 作業 効率 が 変っ て きま 
す . 


と 
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較 フロ ッ ピ ー デ ィ ス クシ ステ ム の 場合 

フロ ッ ピ ー デ ィ ス ク だ け の シス テム 構成 で 環境 を 整え る 場合 は , 用 途 に 応じ て 分 けた 2 枚 の フ 
ロッ ピー ディ スク で 行い ます 。2 枚 うち 1 枚 を プロ グラ ム や ツー ル 類 の た め の フ ロッ ピー ディ ス 
ク に し て 。 シス テム ディ スク と 呼ぶ こと に し ます 。 そし て 。 も う 1 枚 を ソー ス フ ァ イル や オプ ジェ 
クト プア ァイル の た だめ の フロ ッ ピ ー ゲ ィ ス ク と し て 。 ワー ク デ ィ ス ク と 呼 こ と に し ます 。 

シス テム ディ スク に は 。 図 4.3 に 示す ファ イル を 格納 し て くだ さい .。 これ は 最低 限 必要 だ と 思 
われ る ファ イル だ け で すか ら ,。 その ほか に 使い た い プ ログ ラム な ど が あれ ば , 容量 の 許す 限り 入 
れ て し まっ て も か まい ませ ん . 「 


デー エー 日 ASIO2 ニーomme… X-BASIC 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 
ERR BASTOC 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 
人 aaavneereapznawxe C 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 
これ ら の ディ レク トリ は CCompiler PRO-68k の シス テム ディ スク 中 の 同じ 名 前 の ディ レク トリ と 同じ 
内 容 

NLUIDOE や ……… ヘッ ダ を 格納 する た め の デ ィ レ クト リ 

回 上 >eeeeeeevmeeonne ライ ブラ リ を 格納 する た め の デ ィ レ クト リ 

LOCAL … の li 自分 で 作っ た 外部 コマ ンド の ファ イル を 格納 する た め の デ ィ レ クト リ 

に COO C Compiler PRO-68K や X68000 本 体 に 付属 し て いた 外部 コマ ンド ファ イル が 入る 
AR ドド ドー ドド アー カイ バ 
いこ 全 、 生還 CCCCPCCCPCPTEP アセ ンプ ラ 
用 生 …m0m… の ファ イル を キャ ッシュ する 
(の ひか. 全 CCCCCCCCCCYEP コシ ノバ パイ ラド ライ パ バ 
CV oo コン バー タ 
DBJX に … に ドー ドー デバ ッ カ 
MK meme ファ イル 内 容 を ダン プ す る 
EE 月 LP Fe エディ タ の ヘル プ フ ァ イ ル 
PD 本 CCCCCCCCCCCCLL エディ タ 
FORMAT.X …… アー 補充 
LK XX mn ドー ドー ジャ グリ 
MO 有 Eeeouox ファ イル 内 容 を 表示 する 
MOVEX ………… ファ イル を 移動 する 
PRIOGES5.※ ……… メモ リ 内 の 状態 を 調べ る 
TARJX …… ド ーー ドー… 新しい ファ イル を 転送 する 
URIX ーーー つ ファ イル の 日 付 を 変え る コマ ンド 

回 evesnpn Human68k シス テム を 起動 する と き に 使う デバ イス ドラ イ バ な ど を 格納 する た め の デ ィ 

レク トリ 

BEEPSYS ……… ピー ダ 音 の デー タ 
FLOAT2X ………… 浮動 小数 点 演算 用 の デバ イス ドラ イ バ 
OPMDRV.X …… FM 音源 用 の デバ イス ドラ イ バ 


PCMDRV.SYS … ADPCM 用 の デバ イス ドラ イ バ 
PRNDRV.SYS … プ ブリ ンタ 用 の デバ イス ドラ イ バ 
COMMAND.X 


424. シス テム ディ スク の ディ レク トリ 構成 
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4.3 開発 環境 を 整え よう 


LOCAL と いう サブ ディ レク トリ に は あら た に 目 分 で 作成 し た 外部 コマ ンド を , BIN と いう サ 
ププ ィ イレ クト リ に は シス テム ディ スク 付属 し て きた ロマ ンド な ど を 和信 れる と と に し ます 。、 

この 区 別 は それ ほど 上 厳密 に 決め る 必要 は あり ませ ん が , 1 つの サブ ディ レク トリ に 格納 する 
ファ イル の 数 を 制限 し て お く こ と で 管理 が し や すく な り , それ ぞ れ の プロ グラ ム の 働き を 忘れ に 
くく する と いう メリ ッ ト が あり ます . 

ファ イル の コピ ー が 終了 し た ら 。 エ ディ タ を 起動 し て CONFIG.SYS( リ スト 4.12) と 
AUTOEXEC.BAT( リ スト 4.13) を 作成 し ます . 


リス ト ノイ .1 己 CONFie.sYg 





IE FILES = 15 

2: BUFFERS = 29 

S: BELL = \SYS\BEEP.SYS 

4: DEVICE = \SYS\PRNDRV.SYS 

5・ DEVICE = \SYS\PCMDRV.SYS 

6: DEVICE = \SYS\RAMDISK.SYS # 
7: DEVICE = \#SYS\OPMDRV.X 

8: DEVICE = \SYS\FLOAT2.X 

9: VERIFY = ON 





リス ト 4.1 ヨ AUTOExEC.BAT 


11 PATH AAI\SYSiAE:\BINiA:\LOCALiAI:\CCIA:\BCiA:\BASIC2 
の も 間 ま も 

3・ set lib=a:\| jib 

4 


・ Set jinclude=a:\include 





この シス テム 構成 で は グラ フィ ッ ク RAM を RAM ディ スク と し て 使う こと に し ます . この 
場合 ,. グラ フィック を 表示 し た あと は RAM ディ スク が 使え な く な っ て し まい ます . その 場合 は , 
FORKMAT コマ ンド で 初期 化し な お す 必 要 が あり ます . 

ワー ク デ ィ ス ク に は 。 プロ グラ ミン グ 言 語 別 に 図 4.4 の よう な ディ レク トリ を 作り ます 。 そ し 
で 00 イワ ログ トリ の 下 に に 。 きら だ ブログ ジム ふみ る と ディ ャ レグ トリ を 作っ て 。 その の 下 で ディ ッ 
ト や デバ ッ グ を し ます (XX-BASIC の プロ グラ ム は BASTOC に よっ て 変換 され る の で 。 ディレク 
トリ BC の 下 で 行う )。 

ルー トディ レク トリ に は , FNC と いう サブ プ デ ィ レ クト リ が あり ます が 。 こ の ディ レク トリ は 外 
部 関数 関連 の ファ イル を 収め る た め に 使う こと に し ます .。 また 。 完成 し た プロ グラ ム は 。 作業 用 
の ディ レク トリ か ら 。 シス テム ディ スク の LOCAL と いう サブ ディ レク トリ に 移し ます . 

この よう な 構成 が で き あ が れ ば , 常に シス テム ディ スク を ドラ イブ A に ,。 ワー ク デ ィ ス ク を ド 
ライ ブ B に 挿入 し て お く こ と で 。 い つ で も 同じ 環境 で 作業 する こと が で きま す . 
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\ ASM ーーmm… アセ ンプ ブラ の ソー ス , オブ ジェ クト な ど を 格納 する 
=1@COOOCOLUUUOCGL X-BASIC の ソー ス , BASTOC の オブ ジェ クト な ど を 格納 する 
em mw X-BASIC の 外部 関数 を 作る た め の フ ァイル を 格納 する 
人 OndtnY90eR6 C の ソー ス , オブ ジェ クト な ど を 格納 する 


24.4 ワー ク デ ィ ス ク の ディ レク トリ 構成 


田 ハー ド デ ィ スク シス テム の 場合 

ハー ド デ ィ スク を 備え た シス テム で も 。 基本 的 に は 同じ ディ レク トリ 構成 で よい で し ょ う 。 た 
だ し 。 ワー ク デ ィ ス ク に 相当 する も の と し て , work な ど と いう 名 前 を つけ た サブ ディ レク トリ を 
作っ て お きま す . その 下 に 図 4.4 と 同じ ディ レク トリ を 作れ ば よい で し ょ う . 以後 は コン パイ ル 時 
の パス 指定 に 気 を つけ れ ば , フロ ッッ ピー ディス クシ ステ ム の 場合 と 同じ に 使え ます . 


ノ 2 フク 
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5.| プロ グラ ミン グ の 基礎 知識 


5. ] ブロ グラ ミン グ の 基礎 知識 


これ まで の プロ グラ ミン グ 言 語 で は 。 せい ぜ い ア セン ブラ で 書い た 関数 を 呼び 出し た りす る と 
いっ た 程度 の 使い 分 けし か で きま せん で し た . し か し , C Copmpiler PRO-68k で は 。1 つの プロ 
グラ ム を , C 言 語 ., アセ ンプ ブラ, X-BASIC と いう 3 つの 言語 を 使い , 関数 単位 で 使い 分 ける こと 
0 で きめ よう に な っ て あの で ぞ ず 。 

その 上 , それ ぞ れ の 関数 を ライ ブラ リ 化 する の は も ちろ ん の こと , 又 -BASIC の 外部 関数 に する 
と もち も で きま す ( 図 5.1)。 





従来 の 処理 系 で の 組合 せ 


アド レス を 指定 し て 
usr 関 数 ,EXEC な ど ) 
利用 する 


ーーb2 
マシ ン 語 


C Compiler PRO-68k で の 組合 せ BASTOC で コ ン バ パート 
し た プロ グラ ム C の プロ グラ ム 
外部 関数 と し て 登録 
すれ ば ,X-BASIC の 関 ee 


数 と し て 利用 で きる し て 利用 で きる 


C で は アセ ンプ ブラ 
の プロ グラ ム を 関 
迷 と し て 利用 する 


BASIC 8 










X-BASIC の 
X-BASIC 外部 関数 ーーー コ | 6 | プロ グラ ム アセ ン ブ ラ の プロ 

二 吉 の グラ ム も 関数 と し 

外部 関数 | こつ AD て 利用 で きる 
アセ ンプ ラ の 

外部 了 数 | ぐーーー コ | o | 2 ピン フッ 同 | 

外部 関数 に 変換 アセ ンプ ブラ の アセ ンプ ラ の 
プロ グラ ム デ 月 ダラ 導 


ら .1 従来 の 組合 わせ と Compiler PHO-B8k で の 組合 わせ 


5.1.| コン バイ ラド ライ 人 バ の 活用 

一 言 で コン パイ ル と いっ て も , いく つか の 手順 を 踏ま な けれ ば な り ま せん .。 その 過程 に は , い 
くつ か の プロ グラ ム が か か わっ て いま す ( 図 5.2)。 し か し 。 ちょ っ と し た プロ グラ ム を コン パイ ル 
する た びに , これ ら の 手順 を コマ ンド ライ ン で いち いち 入力 し て いた の で は 非 効率 的 で す の で , 
な ん と か これ を 自動 化し た いも の で す 。 それ が , コン パイ ラド ライ バ と いう ツー ル な の で す . 
コン パイ ラド ライ バ は , ファ イル 名 の 拡張 子 に よっ て , その ファ イル が どの よう な プロ グラ ミ 
ング 言語 で 書か れん て いる プロ グラ ム な の か を 判断 し て 作業 内 容 を 決定 し ます の で ,。 ユー ザー は 実 
行 フ ァイル が で きる まで の 過程 を ほとん ど と 意識 する こと な く 作 業 を すす め る こと が で きま す . 


の 2 


5 章 X68000 らし い プ ログ ラミ ング 


X-BASIC の プロ グラ ム 


BASTOC コ ン バ ー タ (BC . X) 


C の プロ グラ ム 


19 | 


0 0 
CC1.X CC2 .X 


アセ シフ ブラ の ブロ グラ ム 


アセ シン プラ (9. 


呈 回 オプ ジェ クト ファ イル 
ヴイ プラ リ 
ファ イル | o | 


リン カ (LK . X) 


実行 ファ イル ( .X 形 式 ) 


図 巳 己 一 般 的 な コン パイ ル 作 業 の 手順 
た と えば , test.bas と いう X-BASIC で 書か れ た プロ グラ ム を コン パイ ル す る 場合 に は , 


Cc test.Das 


と 入力 する だ け で OK で す . 
また 。 又 -BASIC と C 言 語 と いう よう に 異な っ た プロ グラ ミン グ 言 語 で 書か れん れ て いた と し て も 


考え か た は まっ た く 同 じ で す 。test.bas。foo.c。bar.c と いう 3 つの ソー スプ ログ ラム に 分 れ て い 
て も 。 コ ン パ イラ ドラ イ バ を 次 の よう に 起動 すれ ば 一 括 し て 処理 し , 最終 的 に prog.x と いう 実行 


ファ イル が 作ら れ ま す ( 図 5.3)。 


eng X-BASIC の ブロ グラ ム 
l| ASTOC コ ン バ ー タ 
人 ー 
Co 較 還 っ ルン 
| I| LC コン バイ ラ 
ーー ニー ニー ーー ー 
| fes ル 議 拉 | | 太 La アセ シブ プラ の アロ グラ テム 


Ia 滞 を 


に 








プ ジ の 
"ウラ ァ ル | し eeo ルリ [mreU [し wws ル ライ ブラ リ 





5. コ コン パイ ラド ライ バ を 使っ た コン パイ ル の 流れ 
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5.| プロ グラ ミン グ の 基礎 知識 


cc グ Zprog.x test.bas foo.c bar.c 


また ,。 コン パイ ラド ライ バ に は 表 5.1 の よう な いく つか の オプ ショ ン を 指定 する こと が で きま 
』 










ライ ブラ リフ ァイル の パス 指定 22 イラ ドラ ザイ バ パ 和 を ジ き ラー トル する 
/Y | DOSLIB.A と IOCSLIB.A の 使用 フラ グ 
/Z | 実行 ファ イル の ファ イル 名 指定 
エラ ー フ ァイル の 作成 /b | BSS 領 域 の サイ ズ 報 告 
アセ ンプ ブル リス ト の 作成 /d 
/H /e 
| /f 
/h 
/i 
/j 
/ 


DATA 領域 の サイ ズ 報 告 
| 7H イン ダイ レク ト フ ァイル 指定 


1 記 
口 


ヒー プ サ イ ズ の 指定 


イン クル ー ド ファ イル の パス 指定 

マッ プ フ ァ イ ル を 出力 
ソー ス フ ァ イル を 出力 識別 子 の 長 さ の 指定 (8 ミ num ミ 32) 
オプ ジェ クト を 作成 し て 終了 case 数 の 指定 (256 く num <1000) 
タイ ム ス タ ン プ の 判定 /k | スタ ッ ク チ ェ ッ ク ・ コ ー ド の 出力 
オプ ティ マイ ザ を 実行 する 
プリ プロ セッ サ の 出力 ファ イル を 作成 

/ オプ ジェ クト ファ イル の 出力 ドラ イブ 指定 

/ 

/S 
/ 










還 





/| ライ ン ナ ン パ の 出力 
構造 体 の メン バ 数 の 指定 (128 ミ num ミ 1024) 
識別 子 の 登録 数 の 指定 (400 ミ =num ミ 65534) 
識別 子 の クロ スリ ファ レン ス 出 力 

レジ スタ 情報 の 出力 

スタ ッ ク サ イズ の 指定 
オー ト 変 数 の サイ ズ チ ェ ッ ク 
構文 チェ ッ ク レ ベル の 設定 (0 ミ num ミ 3) 







の 








アセ ンプ ブラ の ソー ス に 変換 し て 終了 
作業 ディ スク の 指定 


| 9 3 
コン バイ ラド ライ バ の 実行 経過 を 報告 する 
| 5 
LT ー 











識別 子 を 未定 義 に する 
プリ プロ セッ サ の 出力 を 表示 
BASLIB.A の 使用 フラ グ 


表 己 .] コン パイ ラド ライ バ の オプ ショ ン 


5.1. BASTOOC コン バー タ で プロ グラ ミン グ 

双 -BASIC を 使っ た デ ロ グ ラミ ング に つい て は 。 3 夢 で 詳し く 扱 っ て いま す の で 。 ここ で は , 
BASTOC コン バー タ を 使っ て C 言 語 の プロ グラ ム に 変換 する と いう と ころ か ら ,。 話 を 始め る こ 
と 姓 な まし まう 。 


田 ASGTOUC コン バー タ ノ Z つの 問題 点 

BASTOC コン バー タ は 完璧 で は な く , いく つか の 問題 点 を 抱 を て いま す . し か し , 弱点 を 知っ 
て いれ ば , それ を 回 避 す る こと が で きま すか ら , BASTOC コン バー タ で 変換 する こと が あら か じ 
め わ か っ て いる の で あれ ば , それ を 考慮 に 入れ て プロ グラ ム し て お く と よい で し ょ う . し か し , 
どう し て も コン パイ ル で き な い プロ グラ ム は 。C 言語 の ソー スプ ログ ラム の レベ ペル で デパ バッ グ を 
し な けれ ば な り ま せん 。 


と アク 
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それ で は 。 BASTOC コン バー タ に 問題 点 に つい て か ん た ん に まとめ て お く こ と に し まし ょ う 。 


【 規 則 1 】 ロー カル 変数 の サイ ズ の 限界 に 注意 

X-C で は 。 1 つの 関数 内 で 確保 で きる ロー カル 変数 の サイ ズ は 32K バイ ト 以 内 で な けれ ば な り 
ませ ん . それ を 超え る よう な 大 きい 配列 を 扱う 場合 は グロ ー バ ル 変 数 と し て 宣言 し な けれ ば な り 
ませ ん . 


【 規 則 2 】gusub- て return は 関数 に 変換 され る 
X-BASIC の gosub--return と いう 構文 は C 言 語 の 関数 に 変換 され る こと に 注意 し て くだ さ 
い .。 た だ し 。 双 -BASIC で は 関数 を 記述 で きま すか ら , あえ て gosub を 使う 必要 は な いで し ょ う . 


【 規 則 3 】 goto の 飛び 先 は 同一 の 関数 内 で な けれ ば な ら な い 
C 言語 で は , goto で 他 の 関数 へ 分 岐 す る こと は で きま せん . 規則 2 の と お り , gosub--return は 
関数 に 変換 され ます の で 。 goto を 使っ て 他 の サブ ルー チン へ 分 岐 す る こと も で きま せん . 


【 規 則 4 】 変換 され た C 言語 の プロ グラ ム は , その まま で は ライ ブラ リ 化 で き な い 

一 般 に , BASTOC コン バー タ で 変換 する と main 関数 が 付加 され る の で , その まま で は ライ ブ 
ラリ 化 で きま せん . た だ し , プロ グラ ム 全 体 の 先頭 を “func 関数 名 ” か ら 始め れ ば 問題 あり ませ 
ん . 


【 規 則 5 】 関数 の 仕様 の 相違 に 気 を つけ る 

X-BASIC 上 で の 外部 関数 の 仕様 と 。 BASTOC コン バー タ で 変換 し た あと に 使わ れる BAS- 
LIB 中 の 関数 の 仕様 が 。 異 な っ て いる 場合 が あり ます . この 場合 は C 言 語 の ソー スレ ベル で 修正 
する し か あり ませ ん . 「 


【 規 則 6 】 \( い ヽ ) の 扱い の 相違 に 気 を つけ る 

C 言語 で は “ 壮 ? が 特殊 記号 と し て 扱わ れる こと は いう まで も あり ませ ん 。 で すか ら 。 BASTOC 
コン バー タ を 使っ た 場合 も この 特殊 文字 に 対す る 処理 が 必要 に な り ま す . し か し , BASTOC コン 
バー タ は 。 文字 列 中 の ^ 土 / に 対す る 変換 は し ます が , 文字 定数 と し て 現れ た 場合 の 処理 は 行い ま 
せん . “ぎの 文字 定数 を 必要 と する 場合 は , 直接 ASCII コー ド を 書か な けれ ば な り ま せん . 


【 規 則 7 】 変数 の 型 の 違い に 気 を つけ る 

int 型 の 引数 を 必要 と する 関数 に float 型 の デー タ を 渡し た いと き は , int 関数 を 使っ て 明示 的 
に 型 変換 を する 必要 が あり ます . int 型 の デー タ を float 型 の 引数 と し て 渡す に は , float 型 の デー 
タ に 1.0 を か ける か , いっ た ん float 型 の 変数 に 代入 し て か ら 渡 すか し な けれ ば な り ま せん . 
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田 グラ フィ ッ ク エ ディ タ の 製作 

それ で は , BASTOC コン パー タ の 性 能 を 試す サン プル プロ グラ ム と し て , グラ フィ ッ ク エ ディ 
タ を 作っ て み ま す . グ ラフ ィ ッ ク を 扱う プロ グラ ム は 。C 言語 で 扱う に は ちょ っ と や っ か いで すか 
ら 。 X-BASIC で プロ グラ ム し て 。 完成 し た ら コ ン パ イル し て し まう 。 と いう 方 法 が 最適 だ と いえ 
きしょう 。 

この プロ グラ ム で は , エディタ の 機能 を 選択 する メニ ュー の 表示 に , 3 章 の ADPCM エディ タ 
で 使っ た 関数 と 同じ も の (initmenu 関数 と menu 関数 ) を 流用 する こと に し ます . initmennu 関数 
が メニ ュー と し て 表示 され る 文字 列 の 初期 化 を , menu 関数 が 実際 に メニ ュー を 選ぶ 際 の 処理 を 
行っ て いま す 

まず 。 リ スト 5.1 の ソー スプ ログ ラム を “gedb.bas” と いう 名 前 で 入力 し 。 コンパ イラ ドラ イ 
バ で 次 の よう に コン パイ ル し ます . 


cc グ O gedb.bas 


2 


コン パイ ラド ライ バ に つけ て いる バン 0/ と いう オプ ショ ン は ,。 コン パイ ル 時 に 最適 化 を 行う と 
いう オプ ショ ン で 。 オ プシ ョ ン を つけ な け て も と くに 問題 は あり ませ ん 。 図 5.4 に , 実際 に 行わ 
れ て いる 作業 の 流れ を 図示 し て お きま す . 


BASTOC コ ン バ ー タ 


gedb .c 
コシ パイ ラ 
gedb . S 
ンジ プラ 
gedb . oO 


リ ンカ 





図 4 グラ フィ ッ ク エ ディ タ が コン パイ ル さ れる まで の 流れ 
コン パイ ル 時 の コマ ンド ライ ン は 入力 する の が 面倒 で すか ら ,。 た と え 1 行 で あっ て も バッ チ 


ファ イル に し て お く と 便利 で す . あと で アッ プ デ ー ト を する 場合 も 参考 に な り ま すか ら , ソー ス 
ファ イル と と も に 保存 し て お く と よい で し ょ う 。 


の 
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リス ト . ] グラ フィ ッ ク エ ディ タ (gedD.Dag) 





/* 

/* temp. or global var. def. 
/* 

dim str menustr(9,9) 
dim int menustat(15) 」 
int EndFflag = 

int cl = 65535, bcl = 

Int SymHM, SymVM, SymFont, SymAng 

str SymStr[256] 

19: int MScross = 9, MSpoint = 

11: jint OldMSX, OldMSY /* old mouse pointer for cross cursor 

12: str fname 

13: jint BufX, BufY 

14: int AutoUp = 9 /* AutoUpdate mode (now can't support) 

15: float Buffer(65535) 

16: float tmpl(127), tmp2(127), tmp3(127), tmp4(127), tmp5(127), tmp6(127) 
17: str Menul[256] = “Item FreeHand Line Lines Box Circle Oval BoxFill Pai 
nt Symbol & Mode Color BackColor Free CursorMode PointDisp UndoMode & 


menu を 表示 する 関数 用 の グロ ー バ ル 変 数 


て の CC- コ の O う CC てく トー 


Edit Undo Update Cut Copy Paste Erase &File New Img_Load Img_Save Loa | 


d Save Quit“" 
18: str Menu2[256] = "Item FreeHand Line Lines Box Circle Oval BoxFill Pai 
nt Symbol & Mode Color BackColor Hard CursorMode PointDisp UndoMode & 


Edit Undo Update Cut Copy Paste Erase &File New Img_Load Img_Save Loa 


d Save Quit“ 
19: jint MenuType 
29: int x, y, left, right 





る 5 0 も 】 

の の < / 

23: screen 1, 3, ], 1 | 

24: console 9, 32,M | 

25・: NORI ・ 和 OUSe( 4 ) ONSA12 

26: mSarea(, 9, 511, 511 

の 7 MenuType = ] PID 

28: initmenu(Menu1l) 

29: error off 

39: scron( ) 

31 < PADRCO て "oe グラ フィ ッ ク エ ディ タ を 制御 する 関数 

32: BEPG 

39・ mmOUSe(2) 

34 : vpage( 1 ) 机 

35・ cls 「 

S5: end 

975 /* 

38: func graph() 

39: SymHM = ] 

40: SymVM = 1 

41: EndFlag = 

42: moOde = ]1 /* FreeHand mode 

43: mmSpOS(x, y) 

44: nt WO ーー クロ ス ・ マ ウス カー ソル な ど を 表示 する 関数 
45: while EndFlag = 9 /* not End 

46: msstat(x, y, left, right) 

47: mSpOS(x, y) 

48: cursorMS(x。 y) …0「 の loo クロ ス ・ マ ウス カー ソル な ど を 移動 させ る 関数 
49: ifright then { 

59: clearMS(O …… の 普通 の マウ スカ ー ソ ル に 戻す 関数 
51: 1 = menu(64) ……… メニ ュー を 表示 する 関数 

52: initMS(x, y) 

53: mOde = doMenu(i, mode) …… 選択 し た メニ ュー を 実行 する 関数 
54: }) else if left then { 

OS・ dolt(x。 y,。 mode) "ooo 選択 し た モー ド に 従っ た 処理 を する 関数 
56: ) 
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| その 他 の グロ ー 


| パル 変数 
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ヤレ レレ K レ シシ m レ 5p5ou ヨ ヨ ヨ ヨ ヨ ヨ Q⑲ 了 QMQ pbpw セ Q ヨ Q ヨ 8 タ セ | {〔《「「!|8h 5 モリ サラ us ララ も シレ &1{v{$wM〔! ス VqMBQqSBVvVvwvw ラ ww ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 




















9T* endwhile 

58: endfunc 

59: /* do selected menu, and change mode 

69: func doMenu(newmode, mode) 

61: Switch newmode 

62: case 19 /* Symbol (get multiple, font type, angle) 
63: qSymbol() 

64: Ode = newmode  /* change mode 

65: break 

66: case 21 /* Color in Mode Menu 
67: doGetcl() 

68: break 

69: caSe 22 /* BackColor 

79: doGetbcl() 

『A break 

ント caSe 23 /* Free <-> Hard 

8 doChange() 

74: break 

いと caSse 24 /* change curSor mode 

76: doCuChange() 

『 放 か break 

78: caSe 25 /* change print mode 

79: doPrChange() 

89: break 

81: caSse 26 /* change Update mode 

82: doUpChange() 

83・ break 

84: case 31 /* Undo in Edit Menu | 
85: doUndo() | 
86: break 

9 case 32 /* Update 選択 し た メニ ュー に 従っ て モー 
88: doUpdate() ド の 変更 な どの 処理 を 行う 
89: break 

99: case 41 /* New(Clear) in File Menu 
91: doWipe() 

92: break 

93: case 42 /* Load by img_load() 

94: dolmgLoad() 

95・ break 

96: case 43 /* Save by img_save() 

97・: dolmgSave() 

98: break 

99: case 44 /* Load by gload() 
199: doGload() 
191: break 

192: case 45 /* Save by gsave() 

193: doGsave() 

104: break 

195: caSse 46 /* Quit 

196: qOuit(newmode) 

197・: break 

198: case /* Not Select 

199: break 

110: default /* and Others... 

111: mmOde = neWwmOode /* chang mode 

EZ2% break 

113: endswitch 

114: return(mode) 

115: endfunc 

116: /* 

117: func 0 

116: scroff 人 ーー 
119: reprintqSym1() : reprintqSym2() RS 
129: reprintqSym3() : reprintqSym4() 


ヤレ シヤ 5p モ サモ $qQ セ 6 トト plbplpluBu ル g&&5 ル シシ め pp ドラ パ B ゎ su ポ ハ ポポ pp め ドラ p ド ps ミ ハ w ウ ニー ____- ーー 一 ーー 一 ーーーーーーーーーーーーーーーーーーーーー 一 
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25 repeat 

122: msstat(x, y, left, right) : mspos(x, y) 

123: if left <> then { 

124: X=xX/8:y=y/16 

125: ify=2then { 
126: if (29 <= x) and (x <= 34) then { 

127: SymHM = SymHM - 1 

128: ) else jif (38 <= x) and (x <= 43) then 5 

129: SymHM = SymHM + ] 

139: ) 

K SymHM = (SymHM + 254) mod 255 + 1 
32 reprintqSyml() 

1385 ) else if y = 4 then { 

134: if (29 <= x) and (x <= 34) then { 

935 SymVM = SymVNM - ] それ ら の デー タ を 変更 する 
136: }) else if (38 <= x) and (x <= 43) then 5 

137・ SymVM = SymVM + 1 

138: ) 

139: SymVM = (SymVM + 254) mod 255 + 1 

149: reprintqSym2( ) 

141: ) else if (6 <= y) and (y <= 8) then 5 

142: SymFont = y - 6 : reprintqSym3() 

143: ) else if (19 <= y) and (y <= 13) then { 

144: SymAng = y - 19 : reprintqSym4() | 
145: ) | 
146: if ((33 <= x) and (x <= 39)) or (6 <= y) then { 
147: while left <> 

148: msstat(x, y, left, right) 

149: endwhile 

159: ) 

151: ) 

152: until right <> 

153・ SymStr = doStrlnput(9, 18, "String :", SymStr) 


154: scron( ) 
155: endfunc 








156: /* 

157: func reprintqSym1l() い 
158: locate 9, 2 

159: print using "Horizontal multiple of Symbol << <-## -> >>":SymHM 
169: endfunc | 
161: /* 

162: func reprintqSym2( ) 

163: locate 9, 4 

164: print using "Vertical multiple of Symbol| << <-### -> >>":SymVM 
165: endfunc 

166: /* 

167: func reprintqSym3() 

168: locate 9, 6 : print "Font" 

169: locate 8, 6 : print “9. 6* 12" 

179: LoGAte 8、 了 ミド DFInt 1 。。 8 * 18" 

且 35 locate 8, 8 : print "2 .. 12 * 24" 

172: color 11 

1 ける 2 switch SymFont 

174: caSse 

175: locate 8, 6 

176: PE MM 。。。 表 12 

4 break 

178: CaSe 1 

179: locate 8, 7 

189: PFPin も "1] 。。。 8 * 16" 

181: break 

182: CaSe 2 

183: locate 8, 8 

184: DEEDE の 。。。 2 ォ 24 デ 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 ニニ ャ ヤヤ や ItIK や キ や わ ウ I を E+ キ kcs%⑱ も ⑱⑧ ら べべ に 
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185: break 

186: endswitch | シン ボル 表示 用 の デー タ を そ 
187: color 3 | れ ぞ れ 画 面 に 表示 する 関数 群 
188: endfunc 

189: /* 

199: func reprintqSym4() 

191: locate 9, 19 : print "Angle" 

192: locate 8, 19 : print "9 ... り 計 
193: locate 8, 11 : print "1] .…. 99" | 
194: locate 8, 12 : print "2 ... 189" 
195: locate 8, 13 : print “3 ... 279”" 
196: color 11 

197: switch SymAng 

198: case MM 

199: locate 8, 19 

2: print 9 ... り 

291: break 

202: case 1 

293: locate 8, 11 

24: DEPHNIE 1 。。。 9" 

295: break 

296: case 2 

297・ locate 8, 12 

298: print 2 ... 189" 

209: break 

210: case 3 

ら 1】 5 locate 8, 13 

212 DFN も の" 竹 。。 , 279" 

213: break 

Z14: endswitch 

215: color 3 

216: endfunc 

217: /A 

218: func doGetcl() 

219: scroff( ) 

229: cl = getcl(cl) [描画 する 隊 の 色 コ ー ド 
221: scron( ) | を 選択 する 関数 

222: endfunc 

223: /* 


225: SCroff( ) 

226: bcl = getcl(bcl) 
227: SCron( ) 

228: endfunc 

229: /* 

239: func getcl(cl) 

231: repeat 

の 3 の ・ cl = doIntInput(9, 2, "What Color (-65535)”, cl) 
233: until (9 <= cl) and (cl <= 65535) 

234: return(cl) 

235: endfunc 

236: /* 

237: func doChange() 

238: if MenuType = 1] then { 


画面 を 消去 する 際 の 色 


224: func doGetbcl() [ 
| ー ド を 選択 する 関数 





実際 に 色 コ ー ド を 入力 する 関数 


239: MenuType = 2 

0 0 描画 する 際 に 定規 を 使う か 使わ 
1: else EE 

242: WHITE 4 な いか を 選択 する 関数 

243: initmenu(Menul ) 

Z44: 

245: endfunc 

246: /* 


247: func doCuChange() 
248: scroff( ) 


ン 2 うう 


5 章 X68000 らし い プ ログ ラミ ング 





249: 
259: 
251 に 
252・ 
203・ 
254: 
200・ 
256・ 
207・ 
258: 
259: 
269: 
261: 
252: 
263: 
264: 
265: 
265: 
267・ 
268: 
269: 
270: 
の すり 3 
27 の ・ 
ン イ か を 
274: 
275・ 
276: 
る //・ 
278: 
279: 
28: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288・ 
289・ 
299: 
291 : 
292: 
293* 
Z94: 
295: 
296: 
/9./ < 
298: 
299・ 
3MM: 
301 : 
3M2: 
303: 
394: 
305: 
396・: 
397: 
38: 
309: 
310: 
S1 1 ・ 
912: 
913。 


2)4 


MScross = not MScross ! マウ スカ ー ソ ル の 形状 を 変更 する 関数 
sCron( ) 
endfunc 
/* ネ 
func doPrChange() | 
scroff( ) 
MSpoint = not MSpoint ( マウ ス の 座標 を 表示 する か し な いか を 決め る 関数 
scron( ) 
endfunc 
/* 
func doUpChange() 
beep 
endfunc 
/* 
func doUndo() 
beep ( P .288 か ら 紹 介する 強化 販 グ ラフ ィ ッ クエ ディ タ で 追加 され る 関数 の 了 予約 $ 員 域 
endfunc 
/* 
func doUpdate() 
beep 
endfunc 
/* 
func doWipe() | 
scroff() | 
if Sure() then filI(9, 9, 511, 511, bcl) 
Scron( ) 
endfunc 
/* 
func dolmgLoad() 
IN も XX。\ 
Str fname 
scroff( ) 
fname = getFname() 
scron( ) 
clearMS() 
if img_load(fname) <> 9 then beep 
mSPOS(x, y) 
initMS(x, y) 
endfunc 
/* 
func dolmgSave() | 
Int x,。y 
str fname 
scroff() 


fname = getFname() img_save 関数 を 使っ て , 1 画面 の 


scron() デー タ を セー プ す る 関数 
clearMS() 


if img_save(fname) <> 9 then beep 
mSpOS(x, y) 
initMS(x, y) 

endfunc 

/* 

func doGload() 
beep 


endfunc p .288 か ら 紹介 する 強化 販 グ ラフ ィ ッ クエ ディ タ で 


/* 『 。 Se 
| 追加 され る 関数 の 了 予約 額 域 
func doGsave( ) 


beep 

endfunc 

/* ネ 

func qQuit(mode) 
scroff() 
jf Sure() then EndFlag = 1 」 終了 し て いい か どう か 再 確認 し て 終了 する 
scron( ) | 

endfunc 








| 
| 





画面 を 消去 し て いい か どう か 再 確認 
し て , よけれ は 画面 を 消去 する 


img_load 関 数 を 使っ て , 1 画面 の 
デー タ を ロー ド す る 関数 
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/* 
func Sure() 
Int ry 
locate 9, 2 : print "Sure ?" 
locate 14, 2 : print 「/" 
repeat 
msstat(x, y, left, right) 
mSPOS(x, y) 
X=x/8:y=y/ 16 
if (y = 2) and (19 <= x) and (x <= 13) then { 
locate 19, 2 : print "Yes" 
color 11 
locate 16.2 : print "No" 
color 3 
) else if (y = 2) and (15 <= x) and (x <= 18) then { 
locate 16, 2 : print "No" 
color 11 再 確認 を 求め る 関数 
locate 19.2 : print “Yes" 
color 3 | 
) else { 
color 11 
locate 19.2 : print “Yes" 
locate 16,2 : print "No" 
color 3 
until left <> 
if (y = 2) and (19 <= x) and (x <= 13) thenrv = 1 elserv = 
repeat 
msstat(x, y, left, right) 
until left = 
return(rv) 
endfunc 
/* 
func str getFname() 


fname = doStrInput(9, 2, "What file name", 
return(fname) 
endfunc 
/* 
func dolIntlnput(x, y, mesi str, ans) 
Str temp 
locate x, y 
PTint meS: 
Input temp 
if temp = ".” then return(-1) 
if temp = ”" then return(ans) 
return(val(temp)) 
endfunc 
/* 
func str doStrlnput(x, y, mesi Str, ansi str) 
Str temp 
locate x, y 
PTint meS: 文字 列 を 入力 する た め の 関 数 .。 リ ター ン だ け 
Input temp な ら , 以前 入力 し た 文字 列 を 返す 
if temp = ". then return(”) | ビリ オド を 入力 し た ら 空 の 文字 列 を 返す 
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ファ イル 名 の 入力 を 求め る 関数 


| 数 値 を 入力 する た め の 関 数 . リ ター ン だ け な ら 。 
以前 入力 し た 数 値 を 返す 


jf temp = then return(ans) 
return(temp) 

endfunc 

を 

func dolt(x, y, mode) 
if AutoUp <> then doUpdate() 


Switch mode 


caSse 11 /* Free Hand 
drawFreeHand(x, y) 
break 


と うけ 
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378: caSse 12 /* Line 





379: drawLine(x, y) 

389: break 

381: case 13 /* Lines 

382: drawLines(x, y) 

383・ break 

384: case 14 /* Box 

385: drawBox(x, y) 

386: break 

387: case 15 /* Circle 

388: drawCircle(x, y) 

389: break | 
39: case 16 /* Oval 

391: draw0val(x, y) 

392・ break 

393: case 17 /* Box Fill 

394: drawBoxFill(x, y) 

395・ break 選択 され た モー ド に 従っ て 処理 を 行なう 関数 
396: case 18 /* Paint 

397: doPaint(x, y) 

398: break 

399: case 19 /* Symbol 

499: doSymbol(x, y) 

491 : break 

402: case 33 /* Cut in Edit Menu 
493: Cut(x, y) 

494: break 

405: caSe 34 /* Copy 

496: Copy(x, y) 

497: break 

498: case 35 /* Paste 

499: Paste(x, y) 

410: break 

411: case 36 /* Erase 

412: Erase(x, y) 

413: break 

414: default 

415: pFint "program erTTOT. mOde no jiS "jmode 
416: break 

417: endswitch 

418: endfunc 

419: /* 

429: func drawFreeHand(oldx, oldy) 

421: repeat 

422: msstat(x, y, left, right) 

423: mSPOS(x, y) 

424: clearMS() 

425: line(oldx, oldy, x, y, cl) ao 
426: initMS(x, y) 

427 : oldx = x : oldy = y 

426: until left = | 

429: endfunc 
43: /* 

431: func drawLine(orgx, orgy) 

432: repeat 

433: msstat(x, y, left, right) 

434: SpPOS(x, y) 

435: if MenuType = 2 then toHard(orgx, orgy) 
436: cursorMS(x, y) 線 分 を 描く 関数 
437: until left = 

438: clearMS() 

439: line(orgx, orgy, X, y, CI) 


449: initMS(x, y) 
441: endfunc 
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442: /* 

443: func drawLines(orgx, orgy) 

444: Tepeat 

445: repeat 

446: mSstat(x, y, left, right) 

447: mSPOS(x, y) 

448: if MenuType = 2 then toHard(orgx, orgy) 

449: cursorMS(x, y) 

45: until (left = の) or (right <> 9) 

451: ifright =9then 【 | 

452: clearMS() | 

453: 1ine(orgx, OrgY, X, Y, CI) | 理 続 し た 線 を 描く 関数 

454: initMS(x, y) | 

455: OFTgX = X : OTgY = Y 

456: repeat 

457: msstat(x, y, left, right) 

458: SDPOS(x, y) 

459: if MenuType = 2 then toHard(orgx, orgy) 

469: cursorMS(x, y) 

461: until (left <> ) or (right <> の 

462: ) 

463: until right <> 

464: endfunc 

465: /* 

466: func drawBox(orgx, Orgy) 

467: getNewXY(orgx, Orgy) 

468: clearMS( ) aa 

469: box(orgx, orgy, X, Y, CI) 8 

47: initMS(x, y) 

471: endfunc 

472: /* 

473: func drawCircle(orgx, orgy) | 

474: int dx, dy | 

475: getNewXY3(orgx, orgy) | 

476: clearMS() 中 心 と すみ を 指定 し て 円 を 描く 関数 

477: doCircle(orgX, OrTgy, X - OFTgX, Y - OTgY, CI) 

478: initMS(x, y) 

479: endfunc 

48: /* 

481: func drawOval(orgx, orgy) 

482: int dx, dy 

483: getNewXY(orgx, orgy) 

484: clearMS() | 2 間 を 指定 し て 

485: + orgx) / 2, (y + orgy) / 2, (x - orgx) / 2, (y - orgy | 円 を 描く 関数 
) / 2。 cl 


486: initMS(x, y) 
487: endfunc 





488: /* 

489: func drawBoxFill(orgx, orgy) 

499: NIRRPS OrgY) 

491: clearMS rioisef た 

492: fi11(orgx, orgy, X, Y, CI) 
493: initMS(x, y) 

494: endfunc 

495: /* 


496: func doPaint(x, y) 
497: clearMS() | 隔 昌 
498: paint(x。 y, cl) | 還 四 を 塗り つぶ す 関 数 
499: initMSx。y) | 

599: endfunc 


591: /* 
592: func doSymbol(orgx, orgy) 
593: int dx, dy, tmp 


594: Switch SymFont | 
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595: case /* 56* 12 

596: dx = SymHM * strlen(SymStr) * 6 

597: dy = SymVM * 12 

508: break 

599: caSe 1] /* 8* 16 

51: dx = SymHM * strlen(SymStr) * 8 

511・ dy = SymVM * 16 

512* break 

513:・ caSe 2 /* 12 * 24 

514: dx = SymHM * strlen(SymStr) * 12 

515: dy = SymVM * 24 

516: break 

51/・ endswitch 

518: Switch SymAng 

019: CaSe ] 

529: tmp = dx シン ボル を 表示 する 関数 
521 dx = dy 

02Z・ dy = -tmp 

523・ break 

oZ4: CaSe 2 

020・ dx = -dx 

526: dy = -dy 

02/・ break 

528: CaSe 3 

OZ9: tmp = dx 

53: dx = -dy 

531 : dy = tmp 

532: break 

039。 endswitch 

534: getNewXY2(orgx, orgy, dx, dy) 

535: clearMS() | 
536: Symbol(x, y, SymStr, SymHM, SymVM, SymFont, cl, SymAng) 
537・ initMS(x, y) 

538: endfunc 

539: /* 

549: func Cut(orgx, orgy) 

541: getNewXY(orgx, orgy) 

542: vm D 

543: getBuf(orgx, orgy, X, Y) 5 
544: fillCorgx,。 orgy,。x,y, bcl) 2 2 
545: initMS(x, y) 

546: BufX = abs(x - orgx) : BufY = abs(y - orgy) 

547: endfunc 

548: /* 「 

549: func Copy(orgx, orgy) | 

55: getNewXY(orgx, orgy) | 

551: clearMS() | 

552: getBuf(orgx, orgy, x, y) 画面 上 の 知 形 訓 域 を コ ヒ ー す る 関数 
553・ initMS(x, y) 

554: BufX = abs(x - orgx) : BufY = abs(y - orgy) 

oo5: endfunc 

556: /* 

557: func Paste(orgx, orgy) 

558: getNewXY2(orgx, orgy, BufX, BufY) 

559: clearMS() カッ ト , コピ ー し た 画面 デー タ を 
56: putBuf(x, y) ペー スト する 関数 

561: initMS(x, y) 

562: endfunc 

563: /* 1 

564: func getBuf(x1, y1, x2, y2) 、 り 込む 

565: get(xl, y1, x2, y2, Buffer) 1 CORMNe 

566: endfunc 

567: /* 「 

568: func putBuf(x, y) ae 

569: put(x,。 y, x + BufX, y + BufY, Buffer) | 人 
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endfunc 

/* 

func Erase(orgx, Orgy) 
getNewXY(orgx, orgy) 
clearMS() 
filI(orgx, orgy, x, y, bcl) 
initMS(x, y) 

endfunc 

/* 

func toHard(oldx, oldy) 
dx = abs(x - oldx) : dy = abs(y - oldy) 
if dx *3/4>dythen { 


乱 形 鍋 域 を 消去 する 関数 





y = oldy 

) else if dy > dx x 3 then 5 
X = oldx 和 

) else if dx * 1.5# > dy then { 0 
y =oldy + dx * 1.5# x* sgn(y - oldy) 

) else { 


x =oldx+ dy x2/3* sgn(x - oldx) 


endfunc 
/* 
/* guide box for box, boxfill, oval 
/* 
func getNewXY(orgx, orgy) 
int oldx, oldy 
mSpOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS( ) 
showXBox(orgx, Orgy, X, y, CI) 
initMS(x, y) 
oldx = x : oldy = y 
Tepeat 
msstat(x, y, left, right) 
mSpoS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 知 形 領域 を 2 隅 を 指定 する こと 
if (x <> oldx) or (y <> oldy) then { に よっ て 決定 する 関数 
clearMS() 
clearXBox(orgx, orgy, oldx, oldy, cl) 
showXBox(orgx, orTgy, X, Y, CI) 
initMS(x, y) 
oldx = x : oldy = y 
) 
until left <> -] 
clearMS() 
clearXBox(orgx, orgy, oldx, oldy, cl) 
initMS(x, y) 
endfunc 
/* 
/* guide box for circle 
/* 
func getNewXY3(orgx, orgy) 
int dx, dy, newdx, newdy 
mSPOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
dx = X - OFTgX : dy = y - OFgyY 
clearMS( ) 
showXBox(orgx - dx, orgy - dy, X, y, CI) 
initMS(x, y) 
repeat 
msstat(x, y, left, right) 
mSPOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) | 短 匠 負 起 を 中 心 と 隅 を 指定 する 
newdx = X - OTgX ・ hewdy = y - Orgy | - と に よっ て 決定 する 関数 


マエ シセ シシ 8vQUNU† す † す すす 了 buwuwup58s8「hkh5I5K⑮ ギ ※ ギ ポ "ポリポリ キト 9Q9 ゥ 9、2 ゥ 42 :::tuw$&! ポ !!.!_..、 _  ________ ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
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634: ijf (dx <> newdx) or (dy <> newdy) then 5 

635: clearMS() 

636: clearXBox(orgx - dx, orgy - dy, orgX + dx, Orgy + dy, cl) 
637: showXBox(orgx - newdx, orgy - newdy, Xx, y, CI) 

638: initMS(x, y) 

639: dx = newdx : dy = newdy 

649: 1) 

541: until left <> -] 





642: clearMS() 
643: clearXBox(orgx - dx, orgy - dy, orgX + dx, orgy + dy, cl) 
644: initMS(x, y) 
645: endfunc 
ネ 














646: / 

647: /* guide box for paste, symbol 

648: /* 

649: func getNewXY2(orgx, orgy, dx, dy) 

650: Int newx, newy 

651: X = OFgX : yY = OFTgyY 

652: clearMS( ) 

653: showXBox(x,。 y, x + dx, y + dy, cl) 

554: initMS(x, y) 

555: repeat 

656: msStat(newx, newy, left, right) 

657: mSpOS(newX, newy ) 

658: if (x <> newx) or (y <> newy) then 5 邊 形 領域 の 左上 の 隅 の 
659: clearMS() | 座標 を 決定 する 関数 
66: clearXBox(x, y, x + dx, y + dy, cl) | 

661: showXBox(newx, newy, newX + dX,。 newy + dy, cl) 

662: initMS(newx, newy) 

663: X =I ロ eWX : 》 = neWy 

664: ) 

665: until left <> -] 

666: clearMS() 

667: clearXBox(x, y, X + dx, y + dy, cl) 

668: initMS(x, y) 

669: endfunc 

679: /* 

671: func clearXBox(x1, y1, x2, y2, cl) | 

672: putBox(x1, yl1, x2, y2) 画面 上 の ガイ ド ボ ッ クス を 消去 する 関数 

673: endfunc | 

674: /* 

675: func showXBox(x1, y1, x2, y2, cl) 

676: getBox(xl, y1, x2, y2) 

677: line(x1, yl1, x2, yl1, cl) /* for X-BASIC's BUG of box ai 
678: Iine(x1,。 y2, x2, y2, cl) Pa 
679: line(x1, y1, x1, y2, cl) 遇 
680: line(x2, y1, x2, y2, cl) 

681: endfunc 

682: /* 

683: func doCircle(x, y, dx, dy, cl) 

684: dx = abs(dx) : dy = abs(dy) 

685: if dy < dx then { 

686: circle(x, y, dx, cl, , , 256 * dy / dx) 

687: ) else if dx =then { 中 心 と 短 径 , 長径 , 色 を 指定 
688: circle(x, y, dy, cl, , , 65535) し て 椿 円 を 描く 関数 

689: ) else 5 

699: circle(x, y, dy, cl, , , 256 * dy / dx) 

691: ) | 

692: endfunc 

693: /* 

694: func getBox(x1, y1, x2, y2) 

695: if xl < then xl = 

596: 1jf x] > 511 then x] = 511 


697: jf yl < then yl 
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if y] > 511 then yl = 511 

ifx2< then x2 = 凶 箱 の 線 の 部 分 の 画面 デー タ 
if x2 > 511 then x2 = 511 を 退避 する 関数 
ify2< then y2= B 凶 

ijf y2 > 511 then y2 = 511 


get(xl, y1, x2, yl, tmpl) : get(xl, y2, x2, y2, tmp2) 
get(x1, y1, x1, y2, tmp3) : get(x2, y1, x2, y2, tmp4) 


endfunc 
/* 
func putBox(xl, y1, x2, y2) 
ifxl < then xl = B 凶 
1jf xl > 511 then xl = 511 
ifyl< thenyl= B 凶 
1f yl > 511 then y1 = 511 
if x2 < then x2= 凶 箱 の 線 の 部 分 の 画面 デー タ 
1jf x2 > 511 then x2 = 511 を 復帰 する 関数 
ify2< theny2= B 凶 
if y2 > 511 then y2 = 511 


put(x1, yl1, x2, y1, tmp1) : put(x1, y2, x2, y2, tmp2) 
put(xl, yl1, x], y2, tmp3) : put(x2, y1, x2, y2, tmp4) 
endfunc 
/* mouse .... 
func initMS(x, y) 
if MScross <> 9 then { 
showCrCur(x, y) 
OldMSX = x : OldMSY = y 


) マウ スカ ー ソ ル を 表示 する 関数 
if MSpoint <> then { 
locate 55, 1 
Print using 「# ,#7!x,y 
endfunc 
/* 


func clearMS( ) 
if MScross <> then { 
clearCrCur(0ldMSX, 0ldNMSY) 


if MSpoint <> りり then { マウ スカ ー ソ ル を 消去 する 関数 
locate 55, 1 
print “" 
endfunc 
/* 
func cursorMS(x, y) 
if (MScross <> の and ((OldMSX <> x) or (OldMSY <> y)) then { 
clearCrCur(0ldMSX, 0ldMSY) 
showCrCur(x, y) 
、 OHdMNSX = xi OldNSY = Eee 
if (MSpoint <> 9) and ((OldMSX <> x) or (OldMSY <> y)) then { 
locate 55, 1 
print using 7:x,y 


endfunc 

/* 

func clearCrCur(x, y) | 
put(x, 9, x, 511, tmp5) 
put(, y, 511, y, tmp6) | 

endfunc 

/* 

func showCrCur(x, y) 
get(x, 9, x, 511, tmp5) 
get(, y, 511, y, tmp6) 
line(x, 9, x, 511, 45254) | 


マウ スカ ー ソ ル を 消去 する 下位 関数 





マウ スカ ー ソ ル を 表示 する 下位 関数 
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762: 1ine(, y, 511, y, 45254) 

763: endfunc 

764: /* 

765: func scroff() 

766 vpage(9) | ノラ フィ 。 ク 画面 と マウ スカ ー ソ ル を 消去 し て 

ek clearMS(O 矢印 形 の マウ スカ ー ソ ル を 表示 する 関数 

768: mOuSe( 1 ) 

769: endfunc 

779: /* 

771: func scron() 

の Int X, y 

773: vpage(1) _ 

774: if MScross <> then mouse(2) | グラ フィ ッ ク 画 面 と マウ スカ ー ソ ル を 表示 し て 

775: cls マウ ス の 状態 を 元 に 戻す 関数 

776: SpOS(x, y) 

777: initMS(x, y) | 

778: endfunc 

779: /* 

789: /* menu 

781: /* 

782: func initmenu(messistr) 

783・ int ij, J, nUm, SIZe, tmp 

784: Str meS 

785: 1 = 罰 :」= 凶 :num=9: size=5 

786: mes = strtok(mess, ””) 

787: while mes <> 

788: ifj>9then 【 

789: print "Error in initMenu()" 

79: stop | 

791: ) | 

792・ menustr(i, j) = mes | 

793: tmp = strlen(mes) 

794: if size < tmp then size = tmp 

795: J=J+ Il 

796: ijfnum<J then num = J 

797: eS =Strtok(”,。  ) 

798: if mes = "8 then { 

799: menustat(i) = j」- 1 

8W: il=i+ Il 

891 : if i > 9 then { メニ ュー 関係 

892: print "Error in initMenu()”" 初期 化 関数 

893: stop 

894: ) 

895: J=M 

806: mes = strtok("”", ” う ) 

897: ) 

898: endwhile 

899: menustat(i) = j- 1 

81: menustat(11) = size + 4 

811: menustat(12) = ji 

812: menustat(13) = num - 1 

813: menustat(14) = ! 

814: menustat(15) = 

815: for i = to menustat(12) 

816: for j」=to menustat(i) 

817: menustr(i, j) = menustr(i, j) + space$(size - strlen(menus 
人 w ま 5。 5 

818: next 

819: next 

829: endfunc 

821: /* 

822: func menu(scrxi int) 

823: It CX。 CV 

824: Int 大 X, MY 
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625: 
626: 
627: 
828: 
829: 
830: 
831: 
632: 
833: 
834: 
835: 
836: 
637・ 
8368: 
839: 
849: 
841: 
842: 
843: 
844: 
645: 
846: 
847: 
846: 
849: 
859: 
851: 
852: 
8653: 
854: 
855: 
856: 
6 
8658: 
859: 
860: 
861: 
8652: 
863: 
864: 
865: 
866: 
867: 
868: 


869: 
870: 
8671: 
872: 

hen 5 
873: 
874: 
875: 
8676: 
877: 
678: 
879: 
88: 
881: 
8682: 
883: 
884: 
685: 
686: 


9 


Int X, y, rgt, Ift, ms 
Int field, num 
Int ofield, onum 
int ij, J 
mS = mOUSe(3) 
if ms = 9 then mouse(1) 
CX = POS : cy = CSrTlin 
SDOS(mX, my) 
setmspos(menustat(14), menustat(15)) 
color 11 
for i = to menustat(12) 

locate j * menustat(11), 

print ” "jmenustr(i,」 の 7 の 
next 
print space$(scrx - menustat(11) * (menustat(12) + 1)) 
field = menustat(14) / 8 / menustat(11) : num = menustat(15) / 16 
ofield = field : onum = num 
if field <= menustat(12) then { 

for j = 1 to menustat(field) 

locate field * menustat(11) + 2, j 
print menustr(field, j) 
next 


repeat 
mSstat(x, y, rgt, 1ft) 
mSpOoS(x, y) 
field = x / 8 / menustat(11) 
nhum =y / 16 
if field <> ofield then ? 
if ofield <= menustat(12) then { 
color 3 
for j」= 1 to menustat(ofield) 
locate ofield * menustat(11) + 2, j 
print space$(menustat(11) - 4) 
next 
color 11 


1) 
if field <= menustat(12) then { 
for j = 1 to menustat(field) 
locate field * menustat(11) + 2, j 
print menustr(field, j) 
next 


) 


) else if num <> onum and ofield <= menustat(12) and onum <= m 
enustat(13) then 5{ 


locate ofield * menustat(11) + 2, onum 
print menustr(ofield, onum) 
if field <= menustat(12) and 9 < num and num <= menustat(13) t 
color 3 
locate field * menustat(11) + 2, num 
print menustr(field, num) 
color 11 
) 
ofield = fjield 
OhUM = hUM 
until Ift = 
color 3 
1 = ofield 
for j = 1 to menustat(i) 
locate ji * menustat(11) + 2, j 
print space$(menustat(11) - 4) 
next 


プロ グラ ミン グ の 基礎 知識 


メニ ュー を 選択 
する 関数 
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887・ color 3 

888: locate 

889: print space$(scrx) 

899: locate cx, Cy 

891: mSpOS(x, y) 

892: menustat(14) = x 

893: menustat(15) = y 

894: SetmSspOS(mX, my) 

895: if field > menustat(12) then return(9) 
896: ifnum < ] or menustat(field) < num then return() 
897: if ms = then mouse(2) 

898: return((field + 1) * 1 + num) 


899: endfunc 





田 グラ フィ ッ ク エ ディ タ の 使い ご ご 
ここ で 紹介 し た グラ フィ ッ ク エ ディ タ を 双 -BASIC で 動か す 場 合 は 。X-BASIC の 起動 時 に 次 
の よう な オプ ショ ン を つけ て 。 変数 領域 を 拡大 し て お か な けれ ば な り ま せん . 


BASIC グン F640 


し か し , デバ イス ドラ イ バ が 組み 込ん で ある と 十分 な 領域 を 確保 で き な い か も し れ ま せん の で 
不 必要 な デバ イス ドラ イ バ は は ず し て お いて くだ さい 、。 

コン パイ ル さ れ た あと の プロ グラ ム は , Human68k の コマ ンド ライ ン か ら 直 接 実 行き せる こと 
が で きま す . しかも, プログラム の 実行 速度 は , X-BASIC で 使っ た と き と 比 べ , か な り 向 上 し て 
ゅ る と 思い ます . 

さて 。 と の ダラ フィ ォ ィ ッ みみ エディ タダ の の 簡 作 は 。 は ほとんど マ ウス で で きる よう な っ て で い ゆい ます 。 ま 
ず 。 右 ボタ ン を 押す こと で メニ ュー を 表示 させ る こと が で きま す . マウ スカ ー ソ ル が どこ の 位置 
に あっ て も ,。 画面 最上 部 の メニ ュー バー に ジャ ンプ する と いう こと に 注目 し て くだ さい 。 そし て 
ボタ ン を 放さ ず に , 選択 し た い 機能 の と こま で カー ソル を 移動 きせ て ボタ ン を 放す と , その 機能 
が 選択 きれ ます . 機能 の 選択 と 同時 に , カー ソル は も と の 位置 に 戻り ます . あと は , 左 ボ タン を 
押し な が ら マ ウス を 動か す だ け で 描画 を 行う こと が で きま す . 

だ た だ し 。 メニ ュー の な か に は 。UndoMode。 Undo。 Update, Load。 Save な ど 。 現在 の バー ジョ 
ン で は 使う こと が で き な い 機能 も あり ます . これ ら の 機能 は , 本 章 で いろ いろ な 関数 を つく りな 
が ら 拡 張 し て いく こと に し ます . 

それ で は , メニ ュー の 全体 像 を 図 5.5 に 示し まし ょ う . 主として 4 つの プ ブロック に 分 れ て お り , 
Item で は Box や Circle な どの 描画 の た め の プ プリミティブ を 選択 し ます . Mode で は 描画 色 と 背 
景色 の 選択 それ と 定規 を 使っ た よう に 縦横 斜め に し か 線 や 円 が 描け な い モ ー ド の 選択 や 。 カー 
ソル の 形状 や 座標 の 表示 の 選択 が び でき ます. Edit で は カッ ト や コピ ー,。 ペー スト の ほか に 。 指定 
し た 男 囲 の 消去 も で きま す . そし て File か ら は 画面 の 消去 や 画像 の イメ ー ジ ロー ド ,。 イ メー ジ 
セー ズブ ( 標 準 の IMAGE.FNC の な か の img load, img save 関数 を 使っ て いる の で , 拡張 子 が 
GL3 の 画像 ファ イル の ロー ド も で きる ), 終了 が 選択 で きま す . 
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(画面 の 退避 ) 
(画面 の 復帰 ) 
人 
自由 曲 緑 Free Hand Color ー・ Undo New 画面 の 消去 
直線 Line 計 Back Color Update Img-Load 画面 の 消去 
うな Lines | Free Cut Img-Save 画面 の ロー ド 
























引 Box Cursor Mode es Copy Load (画面 の 圧縮 ロー ド ) 
中 心 と すみ を SS | 

画 ーー 
指定 する 円 Circle ' Point Disp Paste Save (画面 の 圧縮 セー プ ) 
2 つの すみ を 









指定 する 円 Oval Undo Mode Erase Quit 終了 









箱 の 中 を 塗る BoxFil 定規 の 選択 範囲 を 指定 
| 所: 当 し た 消去 
漆 る Paint 0 は りつ け 
描く 色 
文字 の 表示 Symbol (Undo の 選択 ) コー 
マウ ス の 座 準 の 表示 泊 


カー ソル 形状 の 選択 


( ) 内 は 機能 し な い 


品 巳 グラ フィ ッ ク エ ディ タ の メニ ュー 一 覧 


、1. 弓 口 で プログ ラミ ング 

C 言語 は 。 Human68k の コマ ンド ライ ン か ら 実 行 す る よう な コマ ンド や ツー ル 類 を 記述 する の 
に 向い て いま す 。 ま た ,。 本 書 を 手 に と っ た 方 は , 基本 的 な C 言語 の プロ グラ ミン グ を 始め て いる 
と 思い ます の で 。 ここ で は 。 ls.x と いう ディ レク トリ 表示 の プロ グラ ム を 作り な が ら 。 分 割 コ ン パ 
イル と いう 手法 に つい て も 学ぶ こと に し ます . 


田 分 割 コ ン バ イ ル こ は 

開発 する プロ グラ ム の 規模 が 大 きく な っ て くる と , ソー ス フ ァ イル の 大 きき さも 巨大 に な っ て き 
ます . 通常 ,。 プ ログ ラム が 完成 する まで は エディ ッ ト , コン パイ ル , テス ト の 繰返し で す . その 
と き , 巨大 な ソー ス フ ァ イル だ と エディ ッ ト に 手間 が か か り ま すし , コン パイ ル に も 多大 な 時 間 
が か か る よう に な り ま す . デバ ッ グ 段階 で は 数 個 の 関数 や 変数 に 変更 が 加え られ る だ け で あり , 
全体 を 書き 換え る こと は まれ で す 。 そこ で 。 ソー ス フ ァ イル を いく つか の 部 分 に 分 け , 別々 に エ 
ディ ッ ト , コンパ イル を 行う よう に する と デバ ッ グ を 効率 よく すす め る こと が で きま す ( 図 5.6). 

この よう に プロ グラ ム を 複数 の ソー ス フ ァ イル に わけ て コン パイ ル す る こと を 分 割 コ ン バ パイ ル 
と いい ます . 分 割 コ ン パ イル が で きる か どう か は プロ グラ ミン グ 言 語 の 種類 や 処理 系 に より ます 
が , X68000 で 使用 する 言語 処理 系 (X-C。X メ -BASIC, アセ ンプ ブラ ) は いずれ も 分 割 処理 が 可能 
で す . 
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だ ど え ば 。 き 6。 も b も ,bas。GC。$ ど いう ツー スジ ロ ダラム 
か ら prog.x を 作る 場合 


CY 


ご |! 
| 
び 
〇 ① 
が 1 
ー 


BAST 


〇 


M 
い ) 
〇 
ES 
O [ 
の | 
| 
am on 


d 


C コ ン パ イラ 』! C コ シンパ イ 


MI 


ーー 
| 
の 
と と 
| 

1 る) 
1 の 
l 

eg 


だ セグ 


\N 
\I 


B 
昌 11 アセ ンプ ラ J| 
pm 5 1 ' 


修正 し た ファ イル に 関係 し た 
作業 だ け を 行え ば よい 


B 
PETE 


〇 
〇 


で で 
べ 
〇 
( 〇 
と 。3 


5.B 変更 の あっ た ファ イル だ け 再 コン バイ ル さ れる 


田 分 割 の 手法 

さて , ソー スプ ログ ラム を 分 割 す る に は どう いう 観点 で 分 割 す る か が 重要 で す . ここ で は , C 言 
語 を 例 に 考え て み ま す . まず , プロ グラ ミン グ 言 語 。 ある い は 処理 系 の 仕様 に よる 分 割 の 制約 が 
あり ます .C 言語 で は コン パイ ル 単 位 は 変数 。 も し く は 関数 。 ある い は その 両方 を 含ん で いな けれ 
ば な ら ず , さら に 個々 の 関数 や 変数 の 定義 が それ ぞ れ 完結 し て いな けれ ば な り ま せん . し た が っ 
て , 1 つの 関数 を 2 つの ファ イル に わけ て 書く とか, 変数 の 初期 値 を 複数 の ファ イル で 与え る な ど 
どい うと と は で きま せん 。 

処理 系 の 制約 を ふま えた 上 で , どの よう に 関数 や 変数 を 振分け る か を 考え ます . 分 割 す る 方 針 
と し て は , 開発 後 の 保 守 の し や すさ が ポイ ント に な り ま す 。 同一 系 統 の 関数 は 1 つの ファ イル に 
集 っ て いた ほう が 管理 が 楽 で す 。 た と えば “fileioc^ と いう ファ イル が あれ ば これ は ファ イル を 
操作 する 関数 群 だ と 容易 に 見 当 が つき ます .。 また , ほとん どす べ て の 関数 が 参照 する よう な 変数 
は ,。 独立 し た 1 つの ファ イル (た と えば ヾ variables.c?) に 集め て お く と 初期 値 の 変更 な ど が 容易 に 
な り ま す . 変数 の 初期 化 を 行う 関数 も 同一 の ファ イル に あっ た ほう が いい で し ょ う . 特定 の 関数 
だ けし か 委 照 し な いよ うな 変数 は , それ ら の 関数 と 同じ ファ イル に あっ た ほう が わか りや すい で 
し ょ う . 他 の どの 関数 と も 関係 を 持た な い 独 立 性 の 高い 関数 は それ ら だ け を 集め て 1 つの ファ イ 
ル に し ます . 

デバ ッ グ 時 の 時 間 的 な 効率 だ けが 目的 な ら ば 関数 1 個 。 変数 1 個 ご と に ファ イル に 分 ける こと 
ゃ でき ます が , ファ イル の 数 が 数 百 個 に も お よぶ こと に な る の で 現実 的 で は あり ませ ん . や は り 
分 割 に も 限度 が あり ます . その 点 , 機能 別 の 分 割 は ファ イル が 適当 な 大 き さ と 数 に な る た め 好 都 
合 で す 。 実際 。 数 千 行 程度 の 大 き さ の プロ グラ ム な ら ば 数 十 個 の ファ イル に うま く 分 割 す る こと 
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が で きま す . プロ グラ ム の 規模 が も っ と 大 きく な る と ,。 また 別 の こと も 考え な けれ ば な り ま せん 
が 。 そ の よう な こと は まれ で し ょ う . 


田 | ご コマ ンド の 製作 

ここ で は , 分 割 コ ン パ イル を 体験 する 例 と し て , ディ レク トリ の 内 容 を 表示 する LS コマ ンド を 
作る こと に し ます . こ の プロ グラ ム は ファ イル 名 や ディ レク トリ 名 を 並べ 替え て 表示 し ます の で 
DIR コマ ンド に 比べ て 使い や すく な っ て いま す 。 

さて 。 分 割 コ ン パ イル を 行う た め に は , どの よう に 分 割 す れ ば よい か を 決め な けれ ば な り ま せ 
ん 。LS コマ ンド の 内 部 的 な 動作 と と も に , 大 き な 切 分 け を 考え て み ま し ょ う .。 

まず 。 main 関数 と それ に 付随 する 関数 で , 引数 を 読み 込ん で オプ ショ ン を 調べ , その な か か ら 
オプ ショ ン を の ぞい た も の を ls 関数 に 渡し ます . ls 関数 で は , 渡さ れ た 名 前 が ディ レク トリ 名 で 
ある か ファ イル 名 で ある か を 識別 し て 。 ディ レク トリ 名 で あれ ば その ディ レク トリ 内 の ファ イル 
名 を 並べ 替え て 表示 し ます . 次 に ファ イル 名 を 並べ 替え て 表示 し ます . これ ら の 関数 が ls.c と い 
う 1 つの ファ イル に な っ て いま す . 

この ls.c か ら 使 う 関 数 の うち 比較 的 独立 し て いて , ライ ブラ リ と し て 使っ て も 有効 な 関数 , た 
と えば 引数 が ディ レク トリ 名 で ある か どう か 調べ る 関数 な ど を まとめ た ファ イル が low.c で す . 

ファ イル の 情報 の 保存 や 読出 し を する 関数 を まとめ た ファ イル が stack.c で す . 1S で ディ レク 
トリ を 調べ る 場合 に 。 その ディ レク トリ 内 の ファ イル 数 は わか り ま せん . その た め フ ァイル を 並 
べ 替 えて 表示 する に は , その 情報 を と りあ え ず 保存 し , すべ て を 調べ 終っ た ら 読 み 出 す 必要 が あ 
り ま す . この stack.c で は , 外部 か ら ス タッ ク を 変更 され て 誤動作 し な いよ うに , 外部 か ら 変 更 さ 
れる 必要 の な い グ ロー バル 変数 を static 宣言 し て 。 他 の モジ ュー ル か ら 変 更 さ れ て し まう こと を 
防い で いま す . 

また 。 ls.h で は ,。 これ ら の モジ ュー ル か ら 使 われ る 定数 や 構造 体 が 定義 きれ て いま す . 

この よう に 。 LS コマ ンド は 3 つの プロ グラ ム と 1 つの ヘッ ダ か ら 成 り 立 っ て いま す . これ ら の 
ファ イル は 。 図 5.7 の よう な 関係 に な っ て いま す . 

リス ト 5.2- リ スト 5.5 が 。 ls.x を 構成 する プロ グラ ム の リス ト で す . また , コン パイ ル の 手順 
は 次 の と お り で す . 


cc / グ 0O グ Y ls.c low.c stack.c 
コン パイ ル で エラ ー が 発生 し た 場合 に は 。 ソ ー ス ファ イル を 修正 し て 
cc グ M ノ O ノ Y ls.c low.c stack.c 


と 入力 し ます . ン M を 付け る と 。 ソース ファ イル と オブ ジェ クト ファ イル の 日 付 を 比較 し て , 指定 
し レ した ファ イル の な か か ら 再 コン パイ ル の 必要 が ある ファ イル だ け を 選び 出し て , 再 コ ン パ イル し 
ます 。 
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main(…) 


( 


getOption( ) : 








ライ ブラ リ 


品 . プ 各 フ ァイル の 構成 


5. IS の コン バイ ル の 流れ 
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StaCk .c 


initstack( ) 
( 


Dishetgii( ) 
( 


) 


popAllstate( ) 
( 


) 





デア セシル ツ 逐 
M 


5.| プロ グラ ミン グ の 基礎 知識 


リス ト 伺 . ヘッ ダフ ァイル (ls.h) 





ャ ーー ビー ビー ーー ビー ビー ーー レー ビー 
Co ^-J コ JO いな CO 演 (や Oo-=- コ の つの の ⑦ 呈 


#define FALSE 
#jfndef NULL 
#define NULL り 


#endif 
/* define of attribute for FILES(), NFILE() */ 

#define RED 9x1 /* read only */ 

#define HID Mx92 /* hidden file */ 

#define SYS x94 /* system file */ 

#define VOL 9x98 /* volume ID */ 

#define DIR x19 /* directory */ 

#define FLE 9x2g /* normal filc */ 


・ #define ATRMAX 7 
・ #define ALLATR (RED | HID | SYS | DIR | FLE) 


・ #define MAXPATH 128 /* on Human68k max path length is 91 */ 


・ typedef int boO01 で の FALSE か ! FALSE の 値 し か 持た な い bool 型 を 定義 する 
・ typedef struct FILBUF STAT 1 "oo oo struct FILBUF 型 を STAT 型 と も 記述 で きる よう に する 





リス ト 性 . コ メイ ン ル ー チ ン (ls.c) 


ーー ご 


いう =ー ニー ーー レー レー レー テー ーー テー 
や で 〇 CC =- コ OO の 〇 の ① の な CO も 


の 15 


て の CC= コ JO うな CO ら 憲 


・ Static bool opta = 
・ static bool optA = FALSE: 


・ #inClude <stdio.h> 
・#include <doslib.h> 
・#include <error.h> 
・ #include <stdljb.h> 
・#include "ls.h" 


: #define WIDTH 95 /* width of screen */ 
・ #define SHORTHELP 
・ #define isDriveName(path) (*(path) != "\ 8&& *((path) + 1) == 「!) 8 …… 交 字 名 が ドラ イブ 名 か チェ ッ ク 


*((path) + 2) == ”W”) する マク ロ 定 義 関数 


・ #define isWildCard(fname) (strpbrk((fname), "*?”") != NULL) ……… ド バボ … ボ バ 文字 列 が ワイ ルド カー ド を 含ん で い 
・ #define jisDir(st) (((st)->atr & DIR) == DIR) 
・ #define jisHide(st) (((st)->atr & HID) == HID)… "STAT 型 へ の ポイ ンタ が 指す デー タ が ディ レ 


る か チェ ッ ク す る マク ロ 定 義 関数 


品 
2 
申 
ロ 
貼 
w 
ロ 
や 
円 


クト リ か チェ ッ ク す る マク ロ 定 義 関 数 


・ static char ALLFILE[] = "*.*「j 9 二 


・static bool optl = FALSE: 
・ static bool optl = FALSE: 


ファ イル か チェ ッ ク す る マク ロ 定 義 関数 


・ extern Int errnOi 


char *Whoami: 


FALSE: 


25: Static bool optF = FALSE: 

26: 

27: static char *Usage[] = { 
28: "ls[-1AFal] [-help] [-?] {path}.\n", 

29: ”  -1 : force one entry per line output format.\n", 

39: ” -A: almost same option as -a, except for (.) and (..).\n", 
31: ” 。 -F: causedirectories to be marked with a trailing 立 JWn 」| リ ラ ッ リャ セージ 
32: and executable files with a trailing * .\", 

33: ” 。 -a: list all entries.\n", 

34: ” 。 -1 : list in long format.\n「, 

S5: NULL 

S6: お 
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38: void usage(type) 
39: jnt typei 


49: 

41: reglSter char **p: typ e が SHORTHELP に 等 し いな ら 短い 
42: ヘル プ メ ッ セ ー ジ を , そう で な いな ら 長 
43: if (type ニー SHORTHELP ) { | い ヘ ルプ メッ セー ジ を 表 示す る 関数 
44: fputs(*Usage, stderr): 

45: ) else 5 

46: for (p = Usage: *p != NULL: p++) 

4 fputs(*p, stderr): 

48: 

49: } 

59: 


51: void fperror(fname) 

52: char *fnamei 

53: { 

54: fputs(Whoami, stderr): 
55: fputs(": ”",。 stderr): 
56: perror(fname): 





プロ グラ ム 名 と ファ イル 名 と エラ ー メ ッ セ ー ジ 
を 表示 する 関数 





59: int sort(states, cnt) 
69: register STAT *xstatesi 
61: register int cnt: 


63: register int j, Ji 
64: register STAT] *tmp: 


66: for (ji = 9 」< cnti j++) { 
67: for (j」 = ji+ 15 j < cnti j++) 【 
68: if (strcmp(states[i]->name, states[j]->name) > ) { 
69: tmp = states[i]: 
79: states[i] = states[j]: 
の も 4 states[j] = tmp: 
) 


73: ) 

74: ) 

703 Teturn cnt: 
7 


78: void wideDisp(states, cnt) 
79: register STAT *xstatesi 
89: register int cnti 


81: 

82: int maxlen, PTXmaX, DTYMaXi 

83: register jnt j, 」J, kj 

84: register char *name: 

85: 

86: maXlen = 9: 

87: for (ji = 9 1 < cnti j++) { 

88: j) = strlen(states[i]->name): 

89: if (maxlen < j) 

99: MaXlen = ji: 

91: 1) 

92: maXlen += 4 上 Sa 
93: prxmaX = WIDTH / maxleni ーーーーーー ィ ー 
94: pFymaX = (cnt - 1) / prxmax + 1 表示 する 関数 - 
95: for (ji = ji < prymaxi i++) { 

96: for (j」 = ii 」< cnti j+= prymax) { 

97: name = states[j]->name: 

98: k = 9: 

99: while (xname != "\) { 


19M: putchar(*name): | 


250 





ファ イル 情報 を ファ 
イル 名 で 並べ 替え る 
関数 
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191: nam6++: 

192: K++ 5 

193: ) 

194: for (, k < maxleni k++) 

195: putchar(′「): 

196: 

197: putchar('\n'): 

198: ) 

199: } 

119: 

111: void longDisp(state) 

112: register STAT *statei 

1133 { 

114: register char *p, mode[ATRMAX]: 

115: register unsigned char atri: 

116: char *settime(): 

前 か 

118: atr = state->atr: ファ イル 情報 を 受け て , それ 
119: D = mode: を 詳し く 表 示す る 関数 
129: *xp++ = (atr & DIR) 7 7d) | リー: /* directory */ 
121: *pt++ = (atr & SYS) 7 "5 | リー /* system file */ 
122: *p++ =(atr &HID) 2 「h | "ーー の 1 /* hide file */ 

1 2 の 愉 < キサ ミド 2 

124: *p++ = (atr & RED) 7 - | wi /* read only */ 
125: *p = 癌 : | 
126: 「 
ます イ fputs(mode, stdout): 

128: fprintf(stdout, " %6u  ", state->filelen): 

129: fputs(settime(state->date, state->time), stdout): 

13: fputs(” 。 ”, stdout): 

131: puts(state->name): 

182: } 

133: 

134: static int change(state, cnt) 

135: register STAT *xstate: 

136: register int cnti 

137: { 

138: register int ji, ji: 

139: register char *namei 

149: 

141: = 9: 

142: for (ji = 9: 1 < cnti j++) { 

143: name = state[i]->name: 

144: if (opta != FALSE Il ファ イル 情報 の 配列 を 実際 
145: (strcmp(name, ".") != 9 && strcmp(name, "..") != 9 && | に 表示 する ファ イル 情報 の 
146: (optA != FALSE | isHide(state[i]) == FALSE))) ( | 配列 に 用 換 す る 関数 
147、 state[j++] = state[i]: | 
148: if (optF != FALSE) 

149: if (jisDir(state[i]) != FALSE) 

15: strcat(name, PATHDELM): 

151: else if (jsExec(state[i]) != FALSE) 

152: strcat(name, "*”): 

153: ) 

154: ) 

155: return ji 

156: } 

157・ 

158: void disp(state, cnt) 

159: register STAT *xstate: 

169: register int cnt: 

161: { 

162: if (optl != FALSE) 【 

163: while (cnt-- != ファ イル 情報 の 配列 を オプ ショ ン 
164: longDisp(xstate++): に 従っ て 表示 する 関数 
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165: ) else if (optl != FALSE) { 
166: while (cnt-- != 

167: puts((*xstate++)->name) 
168: ) else 5? 

169: wideDisp(state, cnt): 

179: 

1715 9 

1/ の ! 


173: void ls(argc, argv) 
174: register jint argCi 
175: register char *argv[]: 








176: { 

177: char newpath[MAXPATH]: 

178: STAT test, *x*state: 

179: reglster int ji, Ji 

189: register bool doit = FALSE: 

181: Int cnt: 

182: extern char *head(): 

183: 

184: for (」 = ji= 久 ij」<argci j++) { 

185: strcpy(newpath, argv[i]): 

186: if (isDriveName(argv[i]) || isRoot(argv[i])) 5 

187: strcat(newpath, ALLFILE): ー 
188: ) else if (!isWildCard(argv[i]) && isDirectory(argv[i])) { | 指定 され た 名 前 を 
189: strcat(newpath, PATHDELM): orig 
199: strcat(newpath, ALLFILE): よう に 補 ずる 
191: ) else if (xhead(argv[i]) == '"\97) { 

192: argvV[j++] = argv[i]i: 

193 contjinue: 

194: 

195: initStack()) ………… ド スタ ッ ク を 初期 化す る 「 

4 if 1 newpath, ALLATR) >= 9) { 兵 さ れ た 名 前 に マッ チ す る ファ イル 
198: ariNetatekese の 旧 つか る た びに の ファ イル の 人 を 
199: ) while (NFILES(&test) >= の : di 

299: ) else { 

291 : errno = ENOENT: 

292: fperror(newpath): 

293: continue: 

294: 

25 : popAlIState(&state, &cnt)! …………… スタ ッ ク に 積ん だ 情報 を すべ て 取り 出し て 配列 に する 
296: cnt = sort(state,。 cntO2 0 0 情報 を 並べ 替え る 

297・ cnt = change(state, cntOi mm 情報 を 出力 に 適し た 形 に 変換 する 

298: if (argc > 1) 

299: puts(argv[i]): 

219: if (cnt > 9) { 

の 3 doit = !FALSE: 

212: disp(state,。 cntOi oo 表示 する 

213: ) 

214: free(state): 

215: ) 

216: initStack(): 

の が 。 for (ji = 9 ji1 < jj jj+) { 

218: if (FILES(&test, argv[i], ALLATR) >= 9) 5 

219: do { 

22: pushState(&test): 

221: }) while (NFILES(&test) >= 9): 

222 に ) else { 

ら の 3③5 errno = ENOENT : 

224: fperror(argv[i]): 

225・ continuei 

) 上 と 同様 な こと を 指定 さ 幸夫 

2268: popAlIState(&state, &cnt): KT 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー プ ププ ププ ププ ププ ププ ププ ププ ププ ププ oo 
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229: cnt = sort(state, cnt): 

23: cnt = change(state, cnt): 

231: if (cnt > 9) 5 

232: if (doit != FALSE) { 

233: puts(”): 

234: 

235: disp(state, cnt): 

236: 

297: free(state): 

238: } 

239・ 

249: void getOption(option) 
241: register char *option: | 
242: { 

243: if (option == NULL) 

244: returh: 

245: for (: *option != "\7 optionr+) 5 

246: switch(*option) { 

247: caSe 1 ・ 

248: optl = !FALSE: 

249: break: 

259: CaSe 8 : 

251: opta = !FALSE: 

252: break: 

253: CaSe A : 

254: optA = !FALSE: 

205: breaki 引数 か ら オ プシ ョ ン を 
256: caSe 『F : 取り 出し て 評価 する 
257・ optF = !FALSE: 

258: break: 

259: case | : 

269: optl = !FALSE: 

261: breaki 

262: C8Se ? ・ 

263: usage(SHORTHELP): 

264: exit(1): 

265: case h : 

266: usage(!SHORTHELP): 

267: exit(1): 

268: default 

269: fprintf(stderr, "unknown option -%c.\n", *option): 
279: 

271 ) 

37 の 2 } 

273・ 

274: void main(argc, argv) 

275: register jnt argC 

276: register char *argv[]: 

2775 

278: register int ij, Ji 

2/9・ register char *env: 

289: 

281: Whoami = tail(argv[9]): 

282: 

283: getOption(getenv(”"lsopt”)): 

284: for (」= 外 ji = 1 j」< argci j++) { | 

285: if (*argv[i] == "-') 【{ | 

286: getOption(argv[i] + 1): | 引数 が オプ ショ ン だ っ た な ら ば , 
287・ ) else { getOp tion 関数 で 評価 する 
288: argvV[j+] = argv[i]: 

289: 

299: ) 
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291: 
292: 
293: 
294: 
295: 
296: 





if (j== 9) 

8TgVLj++] = "*.*"・ 
引数 に 従っ て ファ イル 情報 を 表示 する 
exit(9): | 





リス ト ロ .4 サポ ー ト ルー チン (low.C) 


いう と ーー ーー ーー レー ーー ーー レー ーー ーー テレ ーー 
で や (の - コ の つの で 所 CO ルー 選 人 で の ここ コ OO の の つ で な CFO 


らら FODO 
た て で てく OO ッ ー 


た SO FOO トド う 
CS = ココ] の) Cm 


C う っ つ 
で S 〈 〇 


て っ 
ーー 


こら と と と cC こ Cococoooooco 
Co - コ の ) で 届 C て (OO 一 (で の - コ の O つ の で の な CFO 


49: 


・#jnclude <stdio.h> 
・#include <doslib.h> 
・#include <error.h> 


#jnclude <stat.h> 
#include "ls.h" 


: #define ITOA(c) ((c) + Mx39) 

・ #define MONTH(d) ((d) >> 5 & 9xf) 

・ #define DATE(d) ((d) & ix1f) 

・ #define YEAR(d) ((d) >> 9 & 9x7f) 
・ #define HOUR(t) ((t) >> 11 & 中 1f) 
・ #define MIN(t) ((t) >> 5 & 3f) 
: #define SEC(t) (((t) & If) * 2) 
・ #define YEARORG 89 


・ #define isDrive(path) (x*(path) != " 聞 ) && *((path) + 1) == | ) 
・ #define isPathDlIm(c) ((c)=="/"1I(c)== "うり ) 


・ eXtern Int erThO0: 


・ char *settime(date, time) 
・rTegister unsigned int date, tjimei 


static char timetbl[] = "Mar 12 85 12:12:19 の 7": 

static char *month[16] = { "Jan", "Feb",。 "Mar"。 "APF", 
"May "は MM "AUg ,。 
"SeD , の "NOV ,。 "Dec「, 


, . っ 99 陸 3 ファ イル 情報 中 
の 日 付 を 文字 列 
sprintf(timetbl, "%3s %2d %2d %2d:%2d:%2d"。 month[MONTH(date) - | に 衝 換 する 
1」, 
DATE(date), YEAR(date) + YEARORG, HOUR(time), MIN(time), S 
EC(time)): 


return timetbl: 


・ char *lastDlm(path) 
・register char *path: 


register char *dlm = pathi: 


if (jsDrive(path) != FALSE ) 





path += の: パス 中 の 一 番 最後 
for (, *path != "'! pathr+) 5 ea 
if (jsPathDlIm(*path) != FALSE ) 
dIm = path: 
else if (jiskanji(*path) != FALSE && *(path + 1) != '\97) 
path++: 
return dlmi 
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・ char *tail(path) 


52: register char *pathi 

53: 

54 : static char name[MAXPATH]: パス か ら パ ス の 指す 
55: ファ イル の 名 前 を 取 
56: strcpy(name, path): り 出 す 関数 

57: path = lastDlm(name): 

58: return path ==name ? path : path + 1: 

59: } 

69: 

61: char *head(path) 


62: register char *path: 

63: 

64: static char name[MAXPATH]: 

65: パス か ら そ の ファ イ 

66: strcpy(name, path): ル ま で の 委 路 を 取り 

67: *lastDlm(name) = '\9: 出す 関数 

58: return name: 

69: } 

79: 

71: bool isRoot(path) 

72: register char *path: 

『 に を 

74: if (isDrive(path) != FALSE) パス の 表す ディ レク トリ を ルー トディ レク トリ 
75・ path += 2: 、 と し て 扱う 必要 が ある か どう か チェ ッ ク す 
76: if (jsPathDlm(*path) && *++path == "\ 胃 ') | る 関数 
が return !FALSE: 

78: else 

79 バ return FALSE: 

89: } 

81: 

82: bool isDirectory(path) 


83: register char *path: 

84: 

85: struct stat stbufj: 

86: register char *Dp: 

87・ 

88: if (stat(path, &stbuf) == 9 && (stbuf.st_mode &S_IFDIR)!= の {人 | 

89: return !FALSE: PP 
99: ) 指し て いる か どう か チ 
91: p = tail(path): ェ ッ ク す る 内 

92: if (strcmp(p, ".") == 9 1I strcmp(p, ". ) == 9) 【 

93: return !FALSE: 

94: ) else { 

95: return FALSE: 

96: 

97: } 

98: 

99: bool isExec(st) 

199: register STAT *st: 

191: 

192: register char *name: 

193: 

194: if (st->atr & FLE) { 

195: namMe = St->namei 

196: name += strlen(name) - 1: 

197: switch (tolower(*name)) { _ 
198: case '【': /* when extension is ".bat” */ | ファ イル 情報 の 示す ファ 
199: if (tolower(*--name) != 'a′ 1 tolower(*--name) != 'b') イル が ディ レク トリ か と 
119: break: うか チェ ッ ク す る 隣 散 
1 CaSe 'X' /* when extension is ".x */ 

1 の: CaSe 『 ・: /* が / 

113: CaSe 2 ・ /* で " ※ す 
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114: if (tolower(*--name) == '.') 
115: return !FALSE: 

116: ) 

117: ) 

118: return FALSE: 

119: } 





リス ト . 世 ファ イル 情報 の 保存 と 読出 し ルー チン (stacK.C) 


・#include <stdio.h> 
・#jnclude <doslib.h> 
・#include <error.h> 
・#include "ls.h" 


・ #define NMMAX 3 


・ typedef struct _states { 
STAT *state[NMMAX]: 
Struct _stateS *next: 
・ 】 STATES: 


・ static STATES *Root = NULL: 

・ static STATES *States: 

・ statjc STAI *xState: 

・ static int Allstcnt: 

・ static int Stcnt: /* check NMMAX > Stcnt ? */ 


・ exXtern Int errhn0: 
・ extern char *Whoamii 


いつ 一 と エー テー テー レー エー ーー ーー ーー テー 
で や (Oo で ここ コ の で な CC 人 (で GO ここ コ OO の で な CFP ッ ー 











の 21: 

22: static void memerror() ) 

29・ 

24: errno = ENOMEM: メモ リエ ラー を 出力 する 関数 

25 perror(Whoami): 

26: 

の 176 

28: static void jnitBuffer() /* get memOory */ 

29: 

3 : TeglSster Int 1」: 

31: Fegister STAT *buf, *x#st: 

や 全 

33・ if ((buf = (STAT *)malloc(sizeof(STAT) * (NMMAX))) == NULL) { 
34: memeTTOr( ): ファ イル 情報 の 配列 を 
35 < exit(1): 初期 介する 関数 
36: 

S7・ st = States->statei 

38: for (ji = 所 」i < NMMAXi j++) 5 

39: *St++ = buf++: 

40: 

41: } 

42: 


43: void pushState(st) 
44: register STAT *st: 
( 





45: 
46: ijf (Stcnt == NMMAX) { 
47: if ((States = States->next = (STATES *)malloc(sizeof(STATES)) ) 
== NULL) { | 
48: memeTror(): 
49: exjit(1): 
5: ) 
51: States->next = NULL: ファ イル 情報 を スタ ッ ク 





OZ・ State = States->state: /* linking States */ | に 積む 関数 
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53: Stcnt = : 
54: initBuffer(): 
655 
56: **State++ = *St: /* copy structure of STAT */ 
57 Allstcnt++: 
08・ Stcnt++? 
59: } 
69: 
61: void popAIIState(buffer, count) 
62: STAT **xbuffer: | 
63: int xcount: | 
64: { 
59: register jint ij, cnt: 
66: register STATES *statesi 
1 すず が regjster STAT **buf, **state: 
68: 
69: if (Allstcnt == 9) { 
79: *count = 久 : 
7 BS *buffer = NULL: 
の ) else { 
『 い か *Count = Allstcnt: 
の 0 if ((*buffer = buf = (STAT **)malloc(Allstcnt * sizeof(STAT *) | 
)) == NULL) { スタ ッ ク に 積ま れ た 
75: memerTor(): すべ て の ファ イル 情 
76: exit(1): | 報 を 配列 化し て 取り 
『 | 出す 関数 
78: states = Root: 
に state = states->state: 
89: cnht = 9: 
81: for (ji = Allstcnti ji > 9 ij--) 5 
82: if (cnt == NMMAX) { 
83: states = states->next: 
84: state = states->state: 
85・ cnt = 
86: 
87・ *Duf++ = *State++: 
868: Ch【t++) | 
89: ) | 
99: ) 
91: 
92・ 
93: void initStack() 
94: { 
95・ register SIATES *states, *tmp: 
96: 
97・ ji イ (Root != NULL) 
98: for (states = Rooti states != NULL: states = tmp) ( | 4 ま て に スタ ッ ク が 
99: free(states->state): | 使わ れ て いた な ら そ の 
1 上 : tmp = states->next: と き に 確保 し た メモ リ 
191: free(states): を 開放 する 
192: ) 
193: ) 
194: if ((States = Root = (STATES *)malloc(sizeof(STATES))) == NULL) { 
195: MeMeTTOr(): 
196: exit(1): 
197: ) 
198: States->next = NULL: 新しい スタ ッ ク を 
199: State = States->state: /* Iinking States */ 初期 作 す る 
119: Stcnt = 9: 
8 initBuffer(): 
112: Allstcnt = 凶 : 
1 衝 S 1 
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5 章 X68000 ら し い プ ログ ラミ ング 


田 | コマ ンド の 使い ご こ 

ls.x と いう 実行 ファ イル が で きた ら ,。 さっ そく 使っ て みる こと に し まし ょ う 。 

この プロ グラ ム の 引数 に は 。 ワイ ルド カー ド を 含ん だ 複数 の ディ レク トリ 名 か ファ イル 名 を 使 
えま す . 引数 が ディ レク トリ 名 な ら ば , その ディ レク トリ に 含ま れる ファ イル と ディ レク トリ に 
つい て の 情報 が 。 フ ァイル 名 な ら ば , その ファ イル に つい て の 情報 が 表示 され ます . も し 引数 な 
し で 実行 する と 。 カ レン トディ レク トリ を ディ レク トリ 名 と し て 与え られ た 場合 と 同じ 動作 を し 
ます 

また 。 次 に 示す よう な いく つか の オプ ショ ン も 用 意 き され て お り , バー" の あと に 続け て 書い て 指 
定 し ます . 


ー 1 … 1 行 に 1 つの 情報 し か 表示 し な い 

ー a … H 属性 の つい た ファ イル も 含め 、 すべ て の ファ イル を 表示 する 

ー A : ん と よそ る を の ぞい ゅ て パーg” と 同じ 動作 を する 

ーF … ディ レク トリ に は “ 学 ?。 実行 可能 ファ イル に は “~*” を つけ て 表示 する 
1 … ファ イル に 関す る 詳し い 情 報 を 表示 する 

ーー … 短い ヘル プ メ ッ セ ー ジ を 表示 する 

ーhelp … 長い ヘル プ メ ッ セ ー ジ を 表示 する 


ロ .1.4 関数 を ファ イル する 

ライ ブラ リ と は 。 い くつ か の オブ ジェ クト を 1 つ に まとめ た も の だ と いう こと は , すでに 説明 
し まし た 。 し か し 。 た だ まとめ た だ け で は 必要 な 関数 の オプ ジェ クト を 取り 出す こと は で きま せ 
ん . その た め に は ,。 目的 の オブ ジェ クト が ライ ブラ リ 中 の どこ に 含ま れ て いる の か と いう 情報 も 
含め て 保存 し な けれ ば な り ま せん . こう し た 情報 の 付加 も 含め て 。 オ ブ プ ジ ェ クト を 1 つ に まとめ 
る 作業 を し て くれ る の が AR( ア ー カ イ バ ) と いう プロ グラ ム で す . 

基本 的 な アー カイ バ の 機能 は 。 ファ イル の 登録 。 更新 。 抽出 , 削除 を する こと で す . それ に 付 
随 し て 。 アーカイブ ファ イル の 内 容 の 表示 や 。 他 の ファ イル 内 容 の 指定 に 従っ て アー カイ ブ す る 
と いら の た と と も でき まず ( 王 5.2)。 


み 半 芝 ト オ テ ゲイル を アー カイ プ す る 

| /b | バッ クア ッ プ ファ イル を 作成 する 

ファ イル を アー カイ プ フ ァ イ ル か ら 削 除 する 

ファ イル の 内 容 に 従っ て アー カイ ブ す る 
アー カイ ブフ ァイル の 内 容 を 表示 する 

ファ イル の 登録 も し く は 更新 を する 


ファ イル を アー カイ ブフ ァイル か ら 抽 出す る 
表 王 必 アー カイ バ の オプ ショ ン 一 覧 





何 を アー カイ ブ プ し て いる の か と いう 状況 報告 を する 
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5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


それ で は , アー カイ バ に 慣れ て も ら う た め に も , LS コマ ンド を 構成 し て いる ファ イル の うち 
stack.c 中 の 関数 を , ワ ー ク ディ スク の ルー トディ レク トリ の usrlib.a と いう ファ イル に 登録 し て 
み ま し ょ う .。 ライ ブラ リフ ァイル の 名 前 と ,。 オブ ジェ クト ファ イル の 名 前 を 指定 する だ け で す の 
で か ん た ん に だ 行う こと が で きる は ず で す ( 図 1.2) 


cc ググ M ン ノ L ノノ O stack.c 


ar a: 町 D\usrlib.a stack.o 


uSrlib . a 








新しい usrlib . a 


5. ヨ ライ ブラ リ 化 の 流れ 


5. の 複数 の 言語 を 使っ た プロ グラ ミン グ 


言語 の 基本 的 な 使い か た を 理解 し た ら ,。 いよ いよ 複数 の 言語 に また が っ た プロ グラ ミン グ に 
挑戦 し て みる こと に し まし ょ う . 

復 数 の 言語 を 使う 場合 に は , どの 言語 を 中 心 と し て プロ グラ ム す る か と いう こと に つい て 決め 
な けれ ば な り ま せん . X-BASIC を 選ん だ 場合 , 他 の 言語 で 書い た 部 分 は 外部 関数 と し て 組み 込 
み , 完成 し た ら コ ン パ イル する , と いう 手順 を と り ま す . この 方 法 な ら ,。 デバ ッ グ を 駐 -BASIC 上 
で 対話 的 に 行え を る と いう メリ ッ ト が あり ます . た だ 。 あ まり 複雑 な デー タ 構 造 は 使え を な いと いう 
欠点 は あり ます . 

C 言語 を 選ん だ 場合 , デ ー タ 構造 の 制限 な ど は あり ませ ん が , デ バッ グ の た びに 再 コ ン パ イル し 
な けれ ば な ら ず , 非 効率 的 な 面 が あり ます . 
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5 章 X68000 らし い ブ プロ グラ ミン グ 


.] X-BAGIOC を 中 心 と し た プロ グラ ミン グ 

まず 。X-BASIC を 中 心 と し て プロ グラ ム を 書く 場合 を 考え て み ま す . プ ログ ラミ ング ニーC 言語 
と 思っ て いる 方 も 目 を 通し て いた だ けれ ば , X-BASIC な ら で は の メリ ッ ト に 興味 を 持た れる と 
思い ます . 


一 外部 関数 を 組み 込む 
X-BASIC を 中 心 に すえ て , 他 の 言語 で 書か ん た モジ ュー ル を 利用 する た め に は , X-BASIC の 
外部 関数 を 作ら な けれ ば な り ま せん . 外部 関数 は , 基本 的 に は アセ ン ブ ラ で 書き た いと ころ で す 
が 。 それ で は あま り 現 実 的 で は あり ませ ん .。 し か も , せっ か く 苦 労 し て 外部 関数 を 作っ て も , そ 
の 関数 は あく まで 外部 関数 で すか ら ,C 言語 の プロ グラ ム か ら は 利用 する こと が で き な い の で す . 
この よう な 問題 点 を 解決 する た め 。X-BASIC や C 言語 で 書い た 関数 を 半自動 的 に X%-BAS1C 
の 外部 関数 に する ツー ル (mkb) を 紹介 し レ し ます. この ツー ル を 使え ば アセ ン ブ ラ に つい て の 知識 
が な く て も 外部 関数 を 作る こと が で きま すし ,。 な に より C 言 語 の 関数 と し て も 使う こと が で きる 
の で す 。 
「 さて, この ツー ル は いっ た い ど の よう な 作業 を し て いる の で し ょ うか . まず , X-BASIC や し 言 
語 で 書か れん て いる プロ グラ ム を アセ ンプ ブラ の ソー スプ ログ ラム の レベ ル ま で コン パイ ル し 。 アセ 


外部 関数 の た め の 
ヘッ ダフ ァイル 外部 関数 の ソー ス フ ァ イル 
人 X-BASIC | o | | o | アセ ンプ ラ 
BASTOC 
コン バー タ 


コシ ソイ オラ 






1 ン バ イ ラ 
テー ブル の 作成 変換 


|? | 1]z* 
sch フ ァイル は 
外部 関数 の た 変換 


め の ア セン プ ブ 

2 < < 田 
ァイル で 拡張 

子 sch を 持つ I I I * プラ 
bj ファ イル は 

人 角 の た cb ob cb 

め の オ プ ブ ジ ェ 
6 ジブ すず 少 リン カ 
で 拡張 子 obj 


を 持つ ne| o | 外部 関数 


MI 
下 
細 
| 難 
う 
江 
ヽ づ / 


イプ ラリ 


5.10 mkKbD の 作業 内 容 
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5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


ンプ ブラ の ソー スプ ログ ラム を 人 外部 関数 に 適する よう に 書き 換え て アセ ン ブ ル し ます . な お ,。 アセ 
ン ブ ラ の ソー スプ ログ ラム を 書き 換え る 際 に mkb が 参照 する 情報 と し て , 外部 関数 に 必要 な 
テー ブル や , 引数 , 戻り 値 の 受け 渡し に 関す る 情報 を 書い た ヘッ ダフ ァイル を 別に 用 意 し な けれ 
ば な り ま せん ( 図 5.10). 

この よう に , 1 つの 関数 を 作る だ け で XX-BASIC か ら 利 用 で きる 外部 関数 と C 言語 な どか ら 利 
用 で きる ライ ブラ リ と いう 2 つの 形式 で 登録 で きる と いう 便利 な ツー ル な の で す . で すか ら 。 日 
頃 の 作業 を こま め に し て いれ ば ,。1 つの ソー スプ ログ ラム で X-BASIC と C 言語 の どちら も 同じ 
仕様 の 関数 を 拡張 し , 同じ 環境 を 保つ と いう こと も で きる わけ で す . 

リス ト 5.6 に mkb の ソー スプ ログ ラム を 掲げ ます . コン パイ ル の 手順 は , 次 の と お り で す . 


cc /O mkb.c 


リス ト 品 . プ 外部 関数 を 作る プロ グラ ム (mkb.C) 


・ #define MACRO 


・#jnclude <stdio.h> 
・#include <doslib.h> 
・#include <error.h> 
・ #include <fcntl.h> 
・#include <proceSs.h> 
・ #include <string.h> 


エーーー 
で や (らら 〇 どこ ココ OoO の の で の ① の た で う ぴ OO 


・ #define FNSIZE 128 

・ #define MAXFUNC 256 

・ #define MAXARG 1 /* max number of argument */ 
・ #define OK り 

・ #define ERROR  -] 

・ #define forever for (ij:) 

・ #define lastchr(p) (*((p) + strlen(p) - 1)) 


ューー… 
ューー< 


・/* values of data types for putFuncType() and putArgType() */ 

・#define _float 1 | 

・ #define _int 2 

・#defjne _char 3 

・#define _str 4 

・#defijne _void 5 
り 
8 
7 


いう と ーー トー トー ーー トー レー トー トレー 
で や (で 〇 CC = コロ の つつ で た Ch ち 5 





デー タ 型 を 表す 数 値 


・ #define _else 
・ #define _ptrmsk 
・ #define _mask 


/* ex. ptr of int is 1919B */ 


・ typedef struct { 

int funcType: 

char *funcName: 

int argNum: 

int argTypes[MAXARG]: 
・ } FUNCTION: 


いら [OFOFO FSSO FOO DO 
CCC= コ OO で な (に 一 


C く CCC うう C う 
な た てく [やら 一 選 


(の) 
| 


・ static char sFLOAT[] = "float": 
・ static char sINT[] 
・ static char sCHAR[] 
・ static char sSTR[] PStr"i 
・static char sVOIDL] "void": 


・ static char SEP[] = ” \【(.)\ni 


了 レレ K シ ヤ vv むむ 1†《8 に 〔 に に 〔〔 98686「6{6《 パ 5 ミ 1{《7 ャ ゃ うう うう 9%$6$6† ヨ 5 ミ {| モヨ ヨミ 8&8 シ シ シ リリ ら キヨ め ゎ め ゅ ウト ゅ ウラ ト ソ ゎ }b}{} ゎ 《{《l シ ト 5⑨ づ ⑨ プ ⑨5B⑨ ポ w$w>w> シ ゎ フ シフ ソ Q ピ ツ nx ツ ww ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 


"Char "ji 


て う くう C う CC う 
て の CS ~) 〇 ⑦) 


こつ 
で ぐ SS 
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5 章 X68000 ら し い プ ログ ラミ ング 
41: 
42: static char *HEAD[] = { 
0 TEXT , 
44: ” INCLUDE fdef.h", 
45: ” GLOBL  _main", 
46: ”_main: , 
473 ” de.1 X_INIT", 
48: ” dc.I X_RUN", 
49: ” dc.| X_END", 
59: ” dc.| SYS 。 
51: ” de,.! X_BRK「, 
52: ” dc.I X_CTRL_D', 
53:” dc.| XLRES1", | 
54: ” de.l ん RES2”。 
55! de.1 ptr_token', 。 
56: ” dc.] ptr_param', 7 
5 が で) deul ptr_exec', 
58: ” dc.| 9, 9,9,9.9「, 
BI 人 才 INITS  。 
69: ”"X_RUNI", 
61: "X_END: 。 
094 KSY9: 。 
692 ABRE2 。 
545 EBIRLDI 。 
65: ARES1: 。 
66: "X_RES2:"。 
人 
68: NULL 
69: | 
7: 
71: static int LabelCnt = 
72: static char *Whoamii 
73: static FUNCTION *Funcs[MAXFUNC]: 
Pa 時 
75: void my_strmfe(name, OrTgname, eXt) 
76: PE char *name, *OTghaWMe, *eXt, 
77: 
78: register char *ptr: 
79: 
89: if (name != orgname) ? 
81: strcpy(name, Orgname): 元 の 名 前 の 拡張 子 を 
82: os 9 
83: ((ptr = strrchr(name, . )) == NULL | ptr < strrchr(name, 
"\\ 
84: strcat(name, ".”): 
85: strcat(name, ext): 
86: ) else { 
87: strcpy(ptr + 1, ext): 
88: ) 
89: } 
9: 
91: int my_execlp(pathname, argS) 
92: char *pathname, *argS: 
93: { バグ を 除い た execlp 関数 
94: return execvpe(pathname, &args, NULL): 
95: } 
96: 
97: int chktype(ptr) 
98: register char *ptri 
99: { 
199: if (strcmpi(ptr, sFLOAT) == 9) { /* float type- 
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specifier */ 


191: 
192: 


193: 
194: 


195: 
196: 


197: 
108: 


199: 
119: 


1【。 
1 の 
113: 
114: 
115: 
116: 
1 が 3 
118: 
119: 
129: 
の 
122!: 
123・ 
124: 
2 れ 
126: 
127: 
128: 
129: 
139: 
191 
132・ 
133: 
134: 
135・ 
136: 
137: 
138: 
139: 
149: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
159: 
8 
152・ 
153: 
154: 
155: 
156: 
1 
1568: 
159・ 
169: 


return _float: 


) else if (strcmpi(ptr, sINT) == 9) 5 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 





/* jint type-specifier 


*/ 文字 列 か ら そ の 
return _int: 交 字 列 の 表わす 
4 ) else if (strcmpi(ptr, sCHAR) == の) { /* char type-specifier | 人 呈 で る 関数 
ネ 
return _chari 
) ) else if (strcmpi(ptr, sSTR) == 9) { /* str type-specifier 
* 
return _Str: 
) else if (strcmpi(ptr, sVOID) == 9) { /* void type-specifier 
return _voidi 
) else { 
/* no def. */ 
return _elsei 
) 
) 


void putFuncType(funcType, fp) 
int funcType: 
0 * 和 fp : 
fputs("\tdc.w\t", fp): 
switch (funcType) { 
caSe _float: 
fputs(sFLOAT, fp): 
break: 
CaSe _Int: 
fputs(sINT, fp): 
breaki 
CaSe _Str・ 
fputs(sSTR, fp): 
break: 
CaSe _voId: 
fputs(sVO0ID, fp): 
break: 
default: 
fputs("error putFuncType.\n”, stderr): 
exit(1): 


fputs(”_ret\n", fp): 
) 


void putArgType(argType, fp) 
int arglype: 
ーー * イ Dp: 
fputs("\tdc.w\t", fp): 
switch (argType & _mask) { 
case _float: 
fputs(sFLOAT, fp): 
break: 
CaSe _Int: 
fputs(sINT, fp): 
breaki 
case _char: 
fputs(sCHAR, fp): 
break: 
CaSe _Str・ 
fputs(sSTR, fp): 
break: 
default: 
fputs(”error putArgType.\n", stderr): 
exit(1): 


| 数値 に 応じ た 関数 の 型 を 出力 する 関数 








| 数 値 に 応じ た 変数 の 型 を 出力 する 関数 





| 
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161: 

162: if (argType & _ptrmsk) 

163: fputs("_vp\n", fp): 
164: else 

165: fputs("_val\n", fp): 
166: } 

167: 

168: 

169: FUNCTION *readFunc(fp) 

179: register FILE *fp: 





生 8 
1728 static char sbuf[BUFSIZ]: 
173: register FUNCTION *funci 
174: register char *ptr: 
17D、 reglster jnt cnt, typei 
176: 
77 バ forever { 
178: if (fgets(sbuf, BUFSIZ, fp) == NULL) | 
179: return NULL: | 4ー を ま 
189: if ((ptr = strtok(sbuf, SEP)) != NULL) に 
181: break: | 
182: ) 
183: if ((func = (FUNCTION *)malloc(sizeof(FUNCTION))) == NULL) { 
184: errno = ENOMEM: 
185: perror(Whoami): 
186: exit(errno): 
187: ) 
188: switch (type = chktype(ptr)) { 
189: CaSe _char : 
199: fprintf(stderr, "%s: 関数 の 戻り 値 に char 型 は 使え ませ ん 
。 \n”,。 Whoami): 
191: exit(1): 
192: Case _else : | た 国人 
193: func->funcType = _int: 1 
194: break: 
195: default : 
196: func->funcType = type: 
197: ptr = strtok(NULL, SEP): 
198: ) 
199: if ((func->funcName = strdup(ptr)) == NULL) { 
29: errno = ENOMEM: 
291 : perror(Whoami): 
292: exit(1): 
203: ) 
2g4 : cnt = 上: 
295: while ((ptr = strtok(NULL, SEP)) != NULL) 5 
206: げ CKptr == 9 4 
297・ break: 
298: ) else switch (type = chktype(ptr)) { 
299: CaSe _void : 
21: fprintf(stderr, "%s: 関数 の 引き 数 に voji 
d 型 は 使え ませ ん 。\n”", Whoami): 
21 1: exit(1): 
5 ン CaSe _else : 
213! func->argTypes[cnt] = _int: 
214: break: 
215: default : | 関数 の 引数 の 
216: func->argTypes[cnt] = type: 型 を 調べ る 
217: ptr = strtok(NULL, SEP): 
218: ) 
219: 1f (xptr == "*') { 
/* & arg. jiS pointer */ 
229: func->argTypes[cnt] |!= _ptrmski 
の のみ 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー す oo 
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222: if (++cnt == MAXARG) { 
229、 fprintf(stderr, "%s: 引き 数 の 数 は 19 個 まで で す 
。 \n "Whoami): 
224: exit(1): 
225: ) 
226: ) 
の の 7 func->argNum = cnt: 
228・ 
229・ return func: 
23: ) 
231 ・ 
232: readHeadder(hfname) 
233: char *hfname: 
234: { 
ら 35・ FILE *fp: 
236: jnt cnti 
23/・ 
238: if ((fp = fopen(hfname, "r”)) == NULL) { 
239: fprintf(stderr, "%s: ", Whoami): 
249: perror(hfname): 
241: exit(1): 
242: 
243: cnt = 凶 : | ヘッ ダフ ァイル を 
244: while ((Funcs[cnt] = readFunc(fp)) != NULL) 5 読み 込む 関数 
245: if (++cnt >= MAXFUNC) 5 
246: fprintf(stderr, "%s: %s: 変換 する 関数 が 多 す ぎ 
ます 。\n”, Whoami, hfname): 
Z47: exit(1): 
248: ) 
249: ) 
259: fclose(fp): 
251: return cnt: 
252: } 
253: 
254: void makeTable(fname, cnt) 
255: char *fname: 
256: jnt cnti 
257: { 
258: FILE *fp, fp2: 
259: Int 」, Ji 
260: 
261: if ((fp = fopen(fname, "w”)) == NULL) { 
262: fprintf(stderr, "%s: ", Whoami): 
263: perror(fname): 
264: exit(1): 
265: ) 
266: for (ji = 9 HEAD[i] != NULL : ij+) ( | 
267・ fputs(HEAD[i], fp): 
268: putc("\n', fp): 
269: 
279: fputs("ptr_token:\n", fp): 
271: for (ji = 9 ji」< cnti j++) 【 
272 fprintf(fp, "\tdc.b\t'%S',n"。 Funcs[i]->funcName): 
0 外部 関数 の テー ブル 
274: fputs("\tdc.b\t9\n", fp): を 作成 する 関数 
275: fputs("\tEVENYn", fp): 
276: fputs("\n\n", fp): 
277: fputs("ptr_param:\n", fp): 
278: for (ji = 9 ji< cnti ji+) { 
279: fprintf(fp, "\tdc.1\t%sS_param\n", Funcs[i]->funcName): 
289: 
281: fputs("\nfn", fp): 
282: for (ji = ji < cnti jr+) 5 
283: fprintf(fp, "%s_param:\n", Funcs[i]->funcName): 
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284: for (」= 8: 」< Funcs[i]->argNumi j++) 【 

が putArgType(Funcs[i]->argTypes[j], fp): 

287: putFuncType(Funcs[i]->funcType, fp): 

288: fputs("\n\n”, fp): 

289: 

29: fputs("ptr_exec:\n", fp): 

291: for (ji = 9 1 <cnti ji+) { 

5 fprintf(fp, "\tdc.1\t%s\n", Funcs[i]->funcName): 

294: fclose(fp): 

295: } 

296・ 

297: void compile(fname) 

298: register char *fname: | 

299: { | 

399: int ilen: | 

391: 

392: len = strlen(fname): | 

393: for (ji = 9: i < leni i++) | 

394: if (fname[i] == /) cc を 使っ て ファ イル を 
395・ fname[i] = \: | コン パイ ル し て アセ ン 
396: switch (my_execlp("cc.x",」 "cc",」 "/S", fname, NULL) ) 【 | プラ の ソー ス フ ァ イル 
37・ case DK : を 作成 する 関数 
308: break, 

399: case ERROR : 

310: perror(Whoami): 

S11: default ・ 

312: exit(1): 

4 を 

314: } 

315・ 

316: void assemble(sfname, dfname) 

317: register char *sfname: 

318: { 

319: register char *ipathi 

32: 

821 if ((ipath = getenv("include”)) == NULL) { 

322: ipath = "Ai:\INCLUDE"」 

323・ 

324: switch (my_execlp("as.x"。 "as",。 "/o", dfname, 「/i, ipath, AS を 使っ て ファ イル を 
325: 9/wW ア 。 ツ /u"。 sfname, NULL)) { | アセ ンプ ブル し て オプ ジ 
S26・ case DK : | エク ト フ ァイル を 作成 
327・ break: する 関数 
326: case ERROR ・ 

329: perror(Whoami): 

330: default : 

331: exit(1): 

332: | 

333: } 

334: 

335: void output(i, dfp) 

336: int ii 

337: FILE *dfp: 

338: { 

339: fputs("\t.TEXT\n”, dfp): 

349: fprintf(dfp, "\t.GLOBL\t%s\n", Funcs[i]->funcName): 

341: fprintf(dfp, "%s:\n",。 Funcs[i]->funcName): 

342: fputs("\tlink\ta6,#9\n", dfp): 

343: fputs("\tmovem. 1\td1-d7/a2-a5,-(sp)\n”, dfp): 

344: fputs("\tlea.1\t8(a6),a2\n", dfp): 

345: fputs("\tmoveq. 1\t#9,d3\n", dfp): 

346: fputs("\tmoveq.1\t#9,d2\n", dfp): 

347: fprintf(dfp, "\tmove.w\t#%d,d2\n", Funcs[i]->argNum): /* puts 
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348: 
S349: 
35: 
S ひ 1 ・ 
S02・ 
353・ 
S54: 
SOO・ 
S5b: 
S5 7 ・ 
358: 
359: 
369: 
S51: 
S52: 
S53・ 
S54: 
S55: 
Sb6: 
357・ 
358: 
359: 
37: 
3/1: 
9 72・ 


373・ 
374: 


375: 
376・ 
は すす 
376: 
S 79・ 
389: 
381: 
382: 
383・ 
364: 
385: 
386: 
387・ 
388・ 
389: 
39: 
391・ 
392: 
393: 
394: 
395: 
396: 
3J7/・ 
398: 
S99・ 
49: 
491 : 
492: 
493: 
494 : 
495: 
496: 
497: 
498: 
493: 


5.2 複数 の 言語 を 使っ た プロ グラ ミ 


fprintf(dfp, "\tbeq.s\t %d\n", LabelCnt + 3): 
fputs("\tsubq.1\t#1,d2\n", dfp): 
fputs("\taddq. 1\t#2,a2\n", dfp): 
fputs("\tmove.1\td2,d9\n", dfp): 
fputs("\tmulu\t#19,d9\n", dfp): 
fputs("\tadd.1\td9,a2\n", dfp): 
fprintf(dfp, ” %d:\n", LabelCnt++): 
fputs(”\tmove.w\t(a2),d9\n", dfp): 
fprintf(dfp, "\tbne.s\t %d\n", LabelCnt): 
fputs("\tmovem. |\t2(a2),d9-d1\n", dfp): 
fputs("\tmovem. 1\td-d1,-(sp)\n", dfp): 
fputs("\taddq. 1\t#2.d3\n"。 dfp): 
fprintf(dfp, "\tbra.s\t %d\n", LabelCnt + 1): 
fprintf(dfp, ”" 。%d:\n", LabelCnt++): 
fputs("\taddq. 1\t#1, dn", dfp): 
fprintf(dfp, "\tbeq.s\t %d\n", LabelCnt): 
fputs("\tmove.1\t6(a2),d\n", dfp): 
fputs("\tmove.1\td9,-(sp)\n”,。 dfp): 





fputs("\taddq.1\t#1,d3\n", dfp): スタ ッ ク 変 換 ル レー チン 


fprintf(dfp,。 ”%d:\n"。 LabelCnt++): を 出力 する 関数 
fputs("\tsub.1\t#19,a2\n", dfp): 

fprintf(dfp, "\tdbra\td2, %d\n", LabelCnt - 3): 

fprintf(dfp, ” %d:\n”",。 LabelCnt++): 

fprintf(dfp, "\tmove.I\td3.( %d)\n", LabelCnt + 3): 

fprintf(dfp, "\tjsr\t\t_%s\n"。 Funcs[i]->funcName): /* put 


S call asm. */ 


) 


fprintf(dfp, “"\tlea.1\t %d,a 時 n", LabelCnt + 2): 
if (Funcs[i]->funcType == _float) { 
/* save ret. val. asm. */ 
fputs("\tmove.1\td9, 2(a9)\n", dfp): 
fputs("\tmove.1\td1,6(a9)\n", dfp): 
) else { 
fputs("\tmove.1\td9,6(a9)\n", dfp): 


fputs("\tmoveq.1\t#, dn", dfp): 

fprintf(dfp, "\tmove.1\t( %d),d3\n", LabelCnt + 3): 
fprintf(dfp, "\tbra.s\t %d\n", LabelCnt + 1): 
fprintf(dfp, ” 。%d:\n"。 LabelCnt++): 
fputs("\taddq. 1\t#4,sp\n”, dfp): 

fprintf(dfp, ”" 。%d:\n", LabelCnt++): 

fprintf(dfp, "\tdbra.s\td3, %d\n", LabelCnt - 2): 
fputs("\tmovem. 1\t(sp)+,d1-d7/a2-a5\n", dfp): 
fputs("\tunlk\ta6\n", dfp): 

fputs("\trts\n", dfp): 

fprintf(dfp, " 。%d:\n"。 LabelCnt++): 
fputs(”"\tdc.w\t9\n", dfp): 

fputs("\tdc.1\t9,n", dfp): 

fprintf(dfp, " 。%d:\n", LabelCnt++): 
fputs("\tdc.1\t 鐘 n", dfp): 

fputs(”"\n\n", dfp): 


void convert(sfname, dfname, cnt) 
char *sfname, *dfnamei 
Int cnt: 


( 


NE 1。 5 

char nbuf[BUFSIZ], fnbuf[FNSIZE]: 
Char *Di 

FILE *sfp, *dfp: 


if ((sfp = fopen(sfname, "r”)) == NULL) { 
fprintf(stderr, "%s: ”, Whoami): 
perror(sfname): 


い ゲ 
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419: exit(1): 
411: ) 
412: if ((dfp = fopen(dfname, "w”)) == NULL) 5 
413: fprintf(stderr, "%s: ”, Whoami): 
414: perror(dfname): 
415: fclose(sfp): 
416: exit(1): 
417: ) 
418: while (fgets(nbuf, BUFSIZ, sfp) != NULL) { 
419: fputs(nbuf, dfp): 
42: for (p = strtok(nbuf,。 ” \t\n”): p != NULL p = strtok( | ファ イル 中 に 外部 関数 
NULL, " 親 の う ) し に 変換 する 関数 が ある 
421: if (strcmpi(p, ".GLOBL") == の) 5 か どう か 調べ る 
422: if ((p = strtok(NULL, ” \t\n”)) == NUL 
L 
423: break: 
424: for (ji = 9: ij < cnti ji+) 5 
425: if (strcmpi(p + 1, Funcs[i]->f | ge た な ら outp ut 関数 
uncName) == 9) { ( に よ っ て スタ ッ ク 変 換 ル ー 
426: output(i, dfp): | チン を 出力 する 
427: break:j 、 
428: 5) 
429: ) 
43: break: 
431: 
432: ) 
433: ) 
434: fclose(sfp): 
435: if (fputs("", dfp) == EOF) { 
436: fprintf(stderr, "%s: ", Whoami): 
437: perror(dfname): 
438: fclose(dfp): 
439: exit(1): 
44: ) 
441: fclose(dfp): 
442: )} 
443: 
444: void main(argc, argY) 
445: jnt argc: 
446: register char *argv[]: 
447: { 
448: regjister int cnt, j, Ji 
449: Char *ptT, **aFTgi 
459: char fntmp[FNSIZE], drv[3], path[66], name[29], ext[4]: 
451: 
452: Whoami = argv[9]: 
453: if (argc < 3) 
P 9 本 P 99 * | 引数 を チェ ッ ク し て 正しく 
人 は SPY mkb headder sources.\n”, stderr): | hig いみ を ます 
456: ) 
457: stcgfe(ext, argv[1]): 
458: jf (strcmpi(ext, "mkb”") != 9) { 
459: fprintf(stderr, "%5s: %S は ヘッ ダー で は あり ませ ん \*n”, Wh 
o8mi, aFgV[1]): 
469: exit(1): 
461: ) 
462: for (ji = 1: j」 < argci i++) { 
463: if ((j= stcgfe(ext, argv[i])) < 3) { | 
464: if ((ptr = malloc(strlen(argv[i]) - j+ 4)) == 
NULL) { | 
465: errno = ENOMEM: ファ イル 名 の 拡張 子 が 3 交 字 
466: perror(Whoami): 、( に なっ て も いい よう に ファ イ 
467: exit(1): ル 名 を 変換 する 
468: ) 
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469: 
47: 
471: 
472: 
473: 
474: 
475: 
476: 
477: 
478: 
479: 
48: 
) 【 
481: 
482: 
483: 
484: 
485: 
466: 
487・ 
488: 
489: 
490: 
491: 
492・ 
493: 
494: 
495: 
496: 
497・ 
LL Il 
498: 
499: 
59M: 
5M1: 
592: 
593: 
594: 
595: 
506: 
597・ 
598: 
599: 
519: 
51 1: 
っ 12: 
513・ 
514: 
o15・ 
o16: 
517/・ 
o16: 
519: 
529: 
021・ 
522: } 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


strcpy(ptr, argv[i]): 
aTgvV[Li] = ptr: 
[ | 
CE 党 readHeadder(argv[1]): ヘッ ダフ ァイル を 読み 込ん で " .sch と いう 拡張 子 で 
my_strmfe(fntmp, argv[1], "sch”): ii 
makeTable(fntmp, cnt): 。 
my_strmfe(argvy[1], fntmp, "obj”): | 外部 関数 テー プル を アセ ンプ ブル し て `.obj” と いう 拡張 子 
assemble(fntmp, argv[L1]): | で オグ ジェ クト を 作成 する 
for (ji = 2: ji < argci j++) { 
stcgfe(ext, argv[i]): 


* * 9 99 g  : 多 Ws | の 拡 の 、 人 二 し 2 
時 CBteewpfCpt。 PP == 衝 1| Bmemeee han ーーー ーー as 


な ら ば コン パイ ル す る 





compile(argv[i]): 

strsfn(argv[i], drv, path, name, ext): 

strmfn(argv[i], "「,。 の 。 name, "sch”): 

my_Strmfe(fntmp, argv[i], "Ss”): 
}) else if (strcmpi(ext, "s”) ==  【 

my_strmfe(fntmp, argv[i], "s): 


| アセ ンプ ラ の ソー ス (*.s” ) を 外部 関数 の 
strsfn(argv[Li], drv, path, name, eXt) | 外部 関数 の ソー ス (`.sch” ) を アセ ンプ ブル し て 


ソー ス (“.sch” ) に 変換 する 


strmfn(argv[i], "「, "name, "sch”): | 外部 関数 の オプ ジェ クト (*.obj” ) を 作る 
) else { 


COntinUGei 
) 


convert(fntmp, argv[i], cnt): 
strcpy(fntmp, argv[i]): 
my_strmfe(argv[i], argv[i], "obj"): 
assemble(fntmp, argv[i]): 


if ((arg = (char **)malloc((argc + 4) * sizeof(char *))) == NU 


(arg[1] = (char *)malloc(strlen(argv[1]) + 5)) == NULL) { 
errno = ENOMEM: 
perror(Whoami): 
exit(1): 


arTg[9] = "cc.x ji 

arg[l] = fntmp: 

strcpy(arg[1], "/27): 
strcat(arg[1], argv[1]): 
my_strmfe(arg[1], arg[1], "fnc”): 
arg[2] = "/Wj 


まじ 3 の 
for (ji = 1 ji < argci jr+) 5 

arg[i + 3] = argv[i]」i 

作成 し た オプ ジェ クト (^.obj” ) 

arg[i + 3] = NULL: に た 
switch (execvpe(arg[!], arg, NULL)) { 
case DK : 

exit(): 
case ERROR : 

perror(Whoami): 
default : 

exit(1): 
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mkb を 使う た め に は 。 コマ ンド ライ ン か ら 次 の よう に 入力 すれ ば OK で す . 
mkb <mkb 用 ヘッ ダフ ァイル 名 > < 関数 の ファ イル 名 1> < 関数 ファ イル 名 2> 


作成 され る 外部 関数 ファ イル の 名 前 は , mkb 用 ヘッ ダフ ァイル の 名 前 と 同じ (拡張 子 は FNC) 
に な り ま す . も ちろ ん , 1 つの 外部 関数 ファ イル に 複数 の 外部 関数 を 保存 する こと が で きま すし , 
1 つの ソー ス フ ァ イル に 複数 の 関数 を 書い て お いて も か まい ませ ん . 

さき さて, コマ ンド ライ ン で 指定 し た mkb 用 ヘッ ダフ ァイル と は , 外部 関数 に する 関数 に つい て の 
情報 を 記述 し た ファ イル の こと で , mkb は この ファ イル の 情報 を も と に 外部 関数 を 作成 し ます . 
その 内 容 は 次 の よう な も の で , 戻り 値 の 型 と その 関数 名 . そし て 必要 と する 引数 の 型 を 書い て お 
き ます 。 


関数 の 戻り 値 の 型 > < 関数 名 > (引数 1 の 型 引数 1 の 名 前 , 引数 2 の 型 引 数 2 の 名 前 , …) : 


この ヘッ ダフ ァイル で 使用 で きる 型 は 表 5.3 の と お り で す . 


戻り 値 に 使え る 型 int 型 , str 型 , float 型 , void 型 


cp int 型 , char 型 , str 型 , float 型 
31 数 の 型 と し て 使え る 党 | な よ びそ れ ら の 型 へ の ポイ ンタ 


表 呈 .G ヘッ ダフ ァイル で 宣言 で きる 型 





ポイ ンタ 型 を 使う に は , “char * 引 数 名 ′ と し ます . この と き ~*” と 引数 名 ′ と の 間 に ス 
ペー ス を 空け て は いけ ませ ん . また 。-BASIC と CC 言語 と の 間 で は 。str 型 や float 型 の ポイ ン 
タ の 取扱 い に 違 い が あ り ま す . X-BASIC で いう ポイ ンタ は , C 言語 で いう ポイ ンタ の こと で は な 
く , 駐 -BASIC 内 部 で の デー タ を 保持 し て いる アド レス の こと で す . その デー タ 構 造 に 対応 し て 外 
部 関数 を 作成 する こと も 可能 な の で す が , C 言語 か ら 使 えな く な っ て し まう と いう 上 弊 害 が 出 ます 
し , それ ほど 頻繁 に 使わ れる も の で は あり ませ ん . 

ま た, 外部 関数 か ら CLIB, BASLIB, DOSLIB や IOCSLIB な どの ライ ブラ リ 内 の 関数 を 使う 
こと も で きま す が ,。 これ は あく まで “で きる ? の で あっ て , それ が 正しく 動作 する こと を 保証 し 
て いる わけ で は あり ませ ん . 

それ で は 実際 に , C 言語 で 書か れ て いる 関数 を X-BASIC の 外部 関数 に 変換 し ます . ここ で は 
グラ フィ ッ ク 画 面 の 任意 の 知 形 領域 を 圧縮 し て セー ブ す る と いう 関数 と 。 その 圧縮 し て セー ブ し 
た デー タ を 任意 の 座標 か ら ロ ー ド する と いう も の で す 。 

X68000 で は , 65,536 色 モ ー ド の と き , グラ フィ ッ ク 画 面 の 1 ドット は 1 ワー ド で 表 さ れ ま す . 
つま り , グラ フィ ッ ク 画 面 の 短 形 領域 は 。 1 ワー ド の デー タ の 集まり と みな すこ と が で きま す . 画 
面 を 圧縮 し て セー ブ プ す る と いう こと は 。 同じ デー タ が 連続 し て いた ら 。 い くつ 同じ デー タ が 連続 
し て いる の か , と いう 情報 に 変換 する こと で す . 


メ / り 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


この 圧縮 方 法 は 。 タイ リン グ に よる 中 間 色 の よう に 同一 デー タ の 連続 が 少な らい グラフィック 
デー タ に は 向い て いま せん . し か し , X68000 の よう に , 使え る 色 数 が 65,536 色 も ある と 中 間 色 な 
ど を 使う こと は な いと 思い ます の で , 十分 な 効果 を 得る こと が で きま す .。 た だ し , これ ら の 関数 
は 解像度 512 メ 512 ドッ ト ,。 65,536 色 モ ー ド の グラ フィ ッ ク 画 面 に し か 使え ませ ん . 

リス ト 5.7 が セー バ 。 リ スト 5.8 が ロー ダ の ソー スプ ログ ラム で す . これ ら の 関数 の 仕様 は 表 
5.4 に 示し ます . 


リス ト . プ ヘッ ダフ ァイル (gls.h) 


1: #define GRPSTART (ushort *)9xcM9 

2: #define GRPEND (ushort *)9xc89M99 

3: #define SPECCHR 

4: #define BUFSIZE 9xM2M9 

5: #define WMODE (0_WRONLY | 0_BINARY | O_CREAT | O_TRUNC) 
6: #define RMODE (0_RDONLY | 0_BINARY) 

7: #define PMODE (S_IREAD | S_IWRITE) 

8: #define XMIN り 

9: #define YMIN り 

19: #define XMAX 51 1 

11: #define YMAX っ 11 

12: #define XSIZE 512 

13: #define YSIZE 512 

14: #define NOERR り 

15: #define ERFILE  -] 

16: #define ERADR = ん 

17: #define USMAX ((1 << sizeof(ushort) * 8) - ]) 
18: #define forever for (5) 

19: 
29: typedef unsigned short ushort: 





リス ト 嘱 . 日 mkb の た め の ヘ ッ ダ ファ イル (glSD.mkb) 





1]: int gload(str fname, int x, int y): 
2: int gsave(str fname, int x9, jnt y9, int x1, int y1): 





リス ト 避 . グラ フィ ッ ク セ ー バ (SaVe.C) 





・#Include <stdio.h> 
・ #Include <fcntl.h> 
・ #include <stat.h> 
・#inClude <jo.h> 
・#include "gls.h" 


・ int gsave(fname, xy9, x1, y1) 
・ Char #fname: 
19: int x9, y9, x1,y1i: 

( 


CC の 〇 CC= こ = コ OO な CC や 憲 


2 ushort buffer[BUFSIZE], *bufend: 
135 int xsize, ySize, fd, stack: 
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5 章 X68000 ら し い プ ログ ラミ ング 





バッ ファ に 余裕 が 
(ない 場 合 , バッ フ 


| アァ を 書き 出す 


14: register ushort *grTp, *gTpend: 

15・ register ushort *buf: 

16: register int ch: 

17: register int diff: 

18: register int cnt: 

19: register int xcnt: 

29: 

21: if ((xg < XMIN II XMAX < x9) 1 (Cx1l < XMIN 1 XMAX < x1) 中 | 
の の に (y < YMIN II YMAX < y の 1 (y1 <YMIN II YMAX <y1) Ii 
23: (1 < x9 1 Gy1 < y の ) 1 
24: return ERADR: 

25: if (x 罰 == xl II y == y1) 

26: return ERADR: 

273 if ((fd = open(fname, WMODE, PMODE)) == -1) 【 

28: return ERFILE: 

29: 

39: stack = SUPER(9): 

< buf = buffer: 

32 bufend = buffer + BUFSIZE - 19: 

99 *buf++ = xSize = xl - x+ 15 | 

34: 。 *buftt =ysize =y1- yg+ 1i PV する 闘 半田 カ 

5: gTD = GRPSTART + y9 * XSIZE + x: 

35: grpend = GRPSTART + yl * XSIZE + xi 

くめ diff = XSIZE - xsize: 

38: ch = 9xffffffff: 

39: cnt = 

49: forever { 

41: XChnt = XSiZe: 

42: while (xcnt-- != 9) { 

43: if (grp > grpend) 

44: goto abort: 

45: if (ch != *grp II cnt == USMAX) { 

46: if (cnt >= 3) 5 | 

47: xbuf れ + = SPECCHR | L 還 - ア ー タ が 続い た 
48: *buf++ = cnt: ( 

49: xbuf++ = ch: | AP 

59: ) else { 

51 while (cnt--) 【 

52: *buf++ = Chi | ' 

・ | 同一 デー タ が 1 度 か 2 度 し か 
1 0 続い て いな い 場 合 , そ の まま 出力 
55: ) 

56: ) 

57・ if (buf > bufend) { 

58: if (write(fd, buffer, (cnt = (buf - buffer) * size 
of(ushort))) < cnt) 

59: gotO erTOT: 

69: buf = buffer: 

61: 

52・ Ch = *grDp: 

63: cnt = 1: 

64: ) else 5 

65: Chnt++? 

66: 

57 : gTD++: 

68: 

69: gTD += dif イ fi 

7: 

71。 ADoTt: 

の ji (cnt >= 3) { 

『 に や *buf++ = SPECCHR: 

『/ *buf++ = cnt: 

7 ひ < *buf++ = Chi 

76: ) else { 


iii 


レア ノウ 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 





が while (cnt--) { 
78: xbuf++ = chi po 
79: if (ch == SPECCHR) ー タ を 出 カ 
89: *buf++ = ch: 
81: ) 
82: ) 
83: if (write(fd, buffer, (cnt = (buf - buffer) * sizeof(ushort))) < c 
nt) 
84: goto errOri 
85: close(fd): 
86: SUPER(stack): 
87・ return NOERRj 
88: errOr・ 


89: close(fd): 

99: SUPER(stack): 

UL return ERFILE: 
) 


94: #ifdef DEBUG 
95: main(argc, argv) 


36: jint argC: 

97: char *argv[]: 

98: 

99 7 

199: 

191: i = gsave(argv[1], 9 9, 511, 511): KCC gsave.c /DDEBUG /W "と 

7 は ! し て コン パイ ル し た 場合 に は 画面 
・ CASC ・ | SaVe ログ ラム に な る 

194: fputs(" フ ァイル が 異常 で す \", stderr): お 

195: break: 

196: caSe ERADR: 

197: fputs(" 範 囲 指 定 が 異常 で す \n”, stderr): 

198: break: 

199: 

119: } 


111: #endif 





リス ト .] グラ フィ ッ ク ロ ー ダ (gload.C) 


・#include <stdio.h> 
・#include <fcntl.h> 
・#include <stat.h> 

・ #include <jo.h> 
#jnclude <graph.h> 
#include <basic.h> 
#include "gls.h" 


(の CO = コ O っ CcCCO 


int gload(fname, x, y) 
19: char *fname: 
まま 2 も %。 5 


18: ushort buffer[BUFSIZE]: 

14: Int fd, stack, xsize: 

15: register ushort *grp, *| jinend: 

16: TegISter ushort *buf, *bufend: 

導 register ushort ch: 

18: register int cnt, xcnt, ycnt, diff: 


2: if ((x < XMIN II XMAX < x) 1| (y < YMIN | YMAX < y)) 
21: return ERADR: 


メ / う 3 
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22: ijf ((fd = open(fname, RMODE)) == -1) 

23: return ERFILE: 

24: stack = SUPER(): 

25: if ((cnt = read(fd, buffer, BUFSIZE * sizeof(ushort))) <= 9) 

26: goto erTTOT: 

りら bufend = buffer + cnt / sizeof(ushort) - 2: 

28: buf = buffer: 

29: cnt = 9: 

3 xcnt = xsize = *buf++: | gload す る 範囲 を 入力 する 

で yCnt = *buf++: 

3 の 。 grp = GRPSTART + y* XSIZE+ Xi: 

SN linend = GRPSTART + y * XSIZE + XSIZE: 

34: diff = XSIZE - xsizej 

35: while (ycnt-- != 9) { 

36: while (xcnt-- != 9) { 

2971 if (cnt != 9) { 

38・ C0【tーー) 

39: ) else 5 

40: if (buf >= bufend) 【 

41: lseek(fd, (buf - (bufend + 2)) * sizeof(ushort), 1 
): 

42: if ((cnt = read(fd, buffer, BUFSIZE * sizeofCushor | っ し 中 に 必要 な デ 
t))) <= ) ーー タ が な い 場 合 に ファ 

43: goto eTTOTj | イル か ら 読 み 込む 

44: bufend = buffer + cnt / sizeof(ushort) - 2: | 

45: buf = buffer: 

46: cnt = : 

47: ) 

48: if ((ch = *buf++) == SPECCHR) { 

49: if ((cnt = *buf++) != SPECCHR) { 

59: ch = *buf++: 

9 1 ナパ ヾ ー ーー 

52・ elae : バ パッ ファ 中 の デー タ を 出力 する 

53: cnt = 

54: ) 

55: | 

56: 

57・ if (grp < linend) /※ みり ッ り ピ ッ グ 

08: *gTD = Ch: 

59・ gTP++ 

69: ) 

1: XCnt = XS1IZ6: 

62: gTD += diff: 

53: | inend += XSIZE: 

64: if (grp >= GRPEND) 

65: break: 

66: ) 

67 : close(fd): 

68: SUPER(stack): 

69: Teturn NOUERR: 

79: error: 

に close(fd): 

72・: SUPER(stack): 

が return ERFILE: 

Ft 

70・ 


76: #ifdef DEBUG 

77: main(argc, argv) 
78: jnt argcC: 

79: char *argv[」i 


81: int ji 


2/ オ 4 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


83: screen(1, 3, 1, 1): 


84・ ypage(3): Cc gload.c /DDEBUG /W /” と し て 
85: ] = 1 , 9 の): ok っ の 5 
86: Switch (ji 

87:・ Case ERFILE: 

88: fputs( ファ イル が 異常 で す \n”, stderr): 

89: break: 

99: case ERADR: 

91: fputs(” 範 囲 指 定 が 異常 で す \", stderr): 

92・ break: 

93: ) 

94: } 

95: #endif 





int gsave (name, x0, y0, x1, y1) : 


Char * name: 
0 : 正常 終了 
ーー 8 ジグ デイ ルナ チビ ほこ エエ デー 
ー2 : 知 形 領域 の 座標 が 異常 
x0, y0, y0, y1 の 示す 知 形 領域 の グラ フィ ッ ク デ ー タ を 圧縮 し , name と いう ファ イル 名 の ファ イ 
ル に 格納 する (65, 536 色 モ ー ド に し か 対応 し て いな い ) 


int gload (name, x, y) : 


Char * n ロ ame : 
0 : 正常 終了 
【 


機 能 name と いう 名 前 の ファ イル か ら デ ー タ を 読み 込み , 展開 し て x, y を 左上 と する 知 形 領域 に クリ ッ 
ビ ピング し て 表示 する (65, 536 色 モ ー ド に し か 対応 し て いな い ) 





表 王 .4 グラ フィ ッ ク セ ー バ と グラ フィ ッ ク ロ ー ダ の 仕様 


バウ 


5 董 X68000 ら し い プ ログ ラミ ング 


コマ ンド ライ ン で は 。 次 の よう に mkb を 起動 し て くだ さい 。 あと は glsb.fnc と いう 人 外部 関数 
ファ イル が で き あ が る の を 待つ だ け で す ( 図 5.11). 


mkb glsb.mkb gload.c gsave.C 


mkb の た め の ノン ノン 
ッッ ダフ ァイル [gs 。 [ssh 
glsb.mkb ご gload .c 「 gsavee レ 







の 、 \ 
qlsb.fnc 


図 .1 1 外部 関数 が で きる まで の 流れ 


2 
| asp ルレ 


今度 は これ を 双 -BASIC に 組み 込ま な けれ ば な り ま せん シス テム ディ スク の BASIC2 ディ レ 


クト リ の トト の BASIC.CNF を 。 


リス ト 5.11 の よう に 変更 し て くだ さい 。 そし て 。 いま 作成 し た 


ZISbDIme シス テム ディ スク の PASIL2 ディ レア メド リ の 下 に ヨ ピ ー し て で くだ きい 。 


リス ト 上 巳 .] 1] BASIC.CNF の 変更 


ーー ーー ーーー 
〔 ら 一 で のど - コ の の の ⑦ の な CCO 


ノ /6 


・ FREE 
・ WIDTH 
・ BEEP 
・ じ APS 
・ FUNC 
・ FUNC 
・ FUNC 
・ FUNC 
・ FUNC 
・ FUNC 
・ FUNC 
・ FUNC 


昌和 今回 作成 し た 外部 関数 





5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


次 に XX-BASIC を 起動 し た 後 。 ダイ レク トモ ー ド で 以下 の よう 傾 入 力 し て み ま し ょ う . 


Screen よ , 3、 1。 』 

line (0, 0, 255, 255, 65535) 
gsave('test ', 0, 0, 255, 255) 
gload( test ', 256, 0) 


する と , 最初 に 引か れ た 線 を test と いう ファ イル に 圧縮 セー ブ し て 。 そ の デー タ を 他 の 座標 か 
ら ロ ー ド し ます . これ ら を 実行 し た 後 の 画面 上 に は 斜線 が 2 つ 表 示さ きれ て いま す ( 画 面 5.1). 





画面 5.] gsave 関数 と 叫 IOgad 関数 の 実行 例 


mkb の 使い か た と し て , X-BASIC で プロ グラ ム を 作る と 遅く な っ て し まう 関数 を 外部 関数 に 
し て 速度 を 上 げ る こと も で きま す .。 その 場合 は , まず 外部 関数 に し た い 関 数 だ け を 取り 出し て 別 
の ファ イル に 格納 し ます . そし て mkb 用 ヘッ ダフ ァイル を 記述 し ., その ヘッ ダフ ァイル と 関数 の 
ファ イル か ら ,。 外部 関数 を 作り ます . あと は その 外部 関数 を XX-BASIC に 組み 込む だ け で す . 

さき ほど も 説明 し た と お り ,。 同じ ソー スプ ログ ラム か ら ラ イブ ラリ と し て も 保存 で きま す ( 図 
5.12)、 アーカイバ を 使っ て 次 の よう に ライ ブラ リ に し ます . 


cc グ M ン /L ノ O gload.c gsave.c 


ar a: \ 中 D\usrlib.a gload.O gsaVe.O 


これ で 。 usrlib.a ライ ブラ リ に gsave 関数 と gload 関数 が 登録 され まし た . この あたり も , バッ 
チ フ ァイル じ し で お る く と 便利 で し ょ う 。 


5 章 X68000 ら し い プ ログ ラミ ング 


< 捕 昌 半 5"。 

Ts ルル ss 

gesas レル [saes ル 
I lLC コ ン バ イ ラ 

の 。 マ ノ AT 。 

し 2 gload . s esave.s し 
| アセ ンプ ブラ 

「 。 間 生 導 。 利和 

「eesg os [sss し 


新しい usrlib . a 
gload , gsave . O 
の カ * 登 録 され た 





5.1 選 ライ ブラ リ 化 の 流れ 


この 2 つの 手順 を 行っ て お け ば ,。X-BASIC と C 言 語 と も に 同じ 仕様 の 関数 が 追加 きれ て いる 
こと に な り , まっ た く 同 じ 環境 で 作業 を する こと が で きま す . 


田 X- 晶 ASIC か ら 言語 の 関数 を 使う 

今度 は 。 外部 関数 を 使っ た X-BASIC の プロ グラ ム を 変換 し て み ま し ょ う .X-BASIC の 関数 呼 
由 し を BASTOC で 変換 する と 。 文末 に セミ コロ ン を つけ る 処理 し か し ませ ん . これ を 利用 する 
と , 双 -BASIC の プロ グラ ム 中 で ,。 ライ ブラ リ 内 の 関数 を 呼び 出す 記述 を する こと が で きま す . 当 
然 , X-BASIC 上 で は 動作 し な い プ ログ ラム に な り ま す が , コン パイ ル 後 に は 問題 な く 動作 する プ 
ログ ラム に な り ま す . た だ し , 関数 の 戻り 値 の 型 官 言 は で きま せん か ら , 浮動 小数 点 型 の 値 を 返 
す 関 数 の よう に , 使え な い 関 数 も あり ます . 

それ で は 。 gsave 関数 と gload 関数 を 。 き き ほ どの グラ フィ ッ ク エ ディ タ に 組み 込ん で みる こと 
世 し まし ょ う , 

まず 。 さき ほど の グラ フィ ッ ク エ ディ タ を 次 の よう に 変更 し て くだ さい 、。 


284 行 【 変 更 前 】 ifimg load(fname) く > 0 then beep 
【 変 更 後 】 if gload(fname, 0, 0) く > 0 then beep 


296 行 【 変 更 前 】 ifimg save(fname) く > 0 then beep 
【 変 更 後 】 if gsave(fname, 0, 0, 511, 511) < く > 0O then beep 


デ ロ グ ラム を 変 記 し た ら 。 コジ パイ ラド ライ パ を 便 っ て 。 次 ゆり よう に コン パイ ル し て くだ きい ゆい 。 


cc プ O ング Y gedb.bas usrlib.a 


ノ / の 


9 複数 の 言語 を 使っ た プロ グラ ミ シグ 


ここ で 使っ て いる ^~ ジ Y ツ オプ ショ ン は 。 usrlib.a に 格納 され て いる gload 関数 と gsave 関数 が , 
DOSLIB.A を 使っ て いる た め に 必要 な も の で す ( 図 5.13). 






抽 朗 HHHRSE 細 MEET 清和 MM 。 
apa リ [sees Ui ms し 


5.1 コン バ パイル の 流れ 


この プロ グラ ム を gload 外部 関数 と gsave 外部 関数 を 組み 込ん だ X-BASIC 上 で 実行 し て み 
て % きり 5。 

ここ で 。BASTOC か ら 新 し い 関 数 を 使っ て いる の に , .DEF ファ イル を 定義 し て いな か っ た こ 
と に 気づか ふれ た か も し れ ま せん . .DEF ファ イル と は , 型 変換 を BASTOC で 自動 的 に 行う た め に 
必要 な ファ イル の こと で す . し か し ,。 定義 き 8 きれ て いな く て も 。, 目 動 的 な 型 変換 を 行わ な けれ ば 問 
題 あ り ま せん し ,。 関数 か ら の 戻り 値 の 型 宣言 な どの よう に 重要 な 部 分 は , .DEF ファ イル だ け で は 
対応 で きま せん . この 章 で 紹介 する 関数 は すべ て , 一 般 的 に は 型 変換 の 必要 は あり ませ ん か ら . 
DEF ファ イル を 定義 し て いな い の で す . 


5. 選 己 〇 言語 を 中 心 と し た プロ グラ ミン グ 

C 言語 を 手足 の よう に 使い こなせ る 方 は , 他 の 言語 の 必要 性 を あま り 感 じ な いか も 知れ ませ ん . 
し か し , プロ グラ ミン グ の 効率 を 考え る と や は り 複 数 の 言語 を 使っ た プロ グラ ミン グ の メリ ッ ト 
を 忘れ る わけ に は いき ませ ん . それ で は C 言 語 を 中 心 と し た 複数 の 言語 に また が る プロ グラ ミン 
の ouy で 前半 する と らし まし ょ う 。 


田 〇 言語 か ら X-BASIC の 関数 を 使 つ 
C 言語 を 中 心 と し て プロ グラ ム を し て いる 方 に と っ て は , な ぜ わ ざわ ざ BASIC を 使わ な けれ 


ば な らん た な い の か 疑問 に 思う か も し れ ま せん 。 の 5 し 。。 C 言語 か ら は 面倒 な 処理 を , は 54( し し で デス 


クノ ツ 
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ト し て か ら 組 み 込む と いう よう な テク ニッ ク を 使っ た 場合 に 有効 な 方 法 と な り ま す . 

双 -BASIC の プロ グラ ム は 。 BASTOC コン バー タ を 使っ て C 言 語 に 変換 し て し まえ ば 。C 言語 
で 書い て ある 他 の ファ イル か ら 呼 び 出 し た りす る こと は 容易 に で きま す . た だ し , 注意 し な けれ 
PE 


カル た や うと と で す (%-BASIC の ゲロ グラ プラム の 変 言 の 終わ りか ら 最 初 の func 文 の 直前 まで 
、C の main 関数 に 変換 され る ). し か し , 純粋 な 関数 だ け の ファ イル で あれ ば , main 関数 は 作 
られ ませ ん 


それ で は 。 実際 に X-BASIC で 関数 を 作り C 言 語 か ら 使っ て み ま す (リスト 5.12). ここ で は 
例 と し て ,。 マウ ス を 使っ て 目的 の 色 を 選ぶ 関数 (getcl 関数 ) を 作っ て み ま し た . この getcl 関数 
を 呼出 す C 言語 の プロ グラ ム は リス ト 5.13 で す . 


リス ト 品 . ] の マウ ス を 使っ た 色 選 択 (getcl.DaS) 


1: func int getcl(cci int) 
2: int x, y, right, left, mst 
3 1hNt 5。 KK 8。 !。 IOeoOk。 1 

















4 mSt = mouse(3) : mouse(1) : mouse(4) | つの 
5 color[,,cc] | 
6: locate 19, 29 : print "R G B I“ 

で locate 19, 21 : print 
8: locate 19, 22 : color 19 : print “ 

9: locate 19, 23 : print “ >・ Color 3 
19: locate 26, 29 : print "R" 0 
11: locate 26, 21 : print "G" 

3 locate 26, 22 : print "B”" 

13: MM 26, 23 : print “17 
14: = の shr すい and &HIF 
15* 3 = (cc shr 6) and &H1F | > = 
16: B = (cc shr 1) and &HIF ーー 人 
1 | = cc and &H] 

18: look = 
19: locate 3 2 
2: for i= 1 to R : print "*, : next 
を 山 ) locate 39, 21 | 
オル 人 for i= 1 toG : print "* ,」 : nexXt ! 色 コ ー ド に 従っ て `*” を 表示 する 
82 locate 39, 22 
24: for i=ltoB: print "*) : next 
25: locate 39, 23 
26: if | then print "*" | 
上 repeat 
28: locate 19, 21 : print using " 笠 掛 拉 すま 75RIGB, 1 …… 色 要 素 の 表示 
29: color[,,cc」 …… ド パ ド | ド ボ ボド パレ ッ ト と 変更 
3 上 : msstat(x, y, left, right) : mspos(x, y) 

8: if x < 239 then x = 239 : setmspos(x, y 

の の > if 485 < x then x = 485 : setmspos(x, y) { マウ ス が 寺 囲 外 に 出 な いよ うに する 
38: if y < 321 then y = 329 : setmspos(x, y) 

34: if 384 < y then y = 384 : setmspos(x, y) 

35: if left then { 

96: if look =then { 

が > y =y/16 変更 する 色 要 素 の 選択 

38: look=y-19 ! 

39: 

4: if look <> then { | 
41: x = (x- 239) /8 
42: Switch look 
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Case 1 
R =X 
locate 39, 29 
for ji = 1 to R : print "* ) : next 
print space$(32 - ji) 
break 
CaSe 2 
G =X 
locate 39, 21 
for i= ltoG: print "*P5 : next 
print space$(32 - ij) 
break 


aSe 3 
IT す 、 色 要素 の 変更 





locate 3, 22 | 
for i=ltoB: print "* 」 : next 
print space$(32 - ij) 
break 
caSe 4 
locate 39, 23 
jifx>then { 
| = 1 
pFTint "* 
) else { 
| = 


本 1 








break 
endswitch 


) else 5 
look = 


) 
cc = (G shl 11) or (R shIl 6) or (B shl 1) or | 
until right 


IT MSN ミ PtNeh GBSet2) で ーーーー マウ ス の 状態 を 元 に 戻す 
cls 
return(cc) ………… 色 要 素 か ら 色 コー ド を 求め る 


81: endfunc 





リス ト .]1 getcl 関数 の 呼出 し (COlOr.C) 


#include <stdio.h> 
#include <iocslib.h> 


main( ) 


int ji 

puts(”"\933[2J あ な た の お 望み の 色 は な ん で すか 9? 7): 

ij =getcl(655959) し 色 を 求め る 
printf(”" あ な た の お 望み の 色 の コー ド は %d で すね 9?2\n", DD: 

TPALETG3. 7 画面 上 の 色 パ ター ン を 識 更 する 
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機能 color の カラ ー コ ー ド を 基 に し て , 新しい カラ ー コ ー ド を マウ ス で 設定 させ る ( 左 ボ タン で 設定 , 右 
ボタ ン で 終了 ) 















表 巳 . 巳 getcl 関数 の 仕様 


りつ の ツタ ア イル が そろ っ た と ところで, ロコ ロ ツ YYJ し で みほ まし しょう. こと で も コン パイ ジラ ドラ テイ が 
を 使い ます . 


cc ググ 0 グ Y color.c getcl.bas 


で き あ が っ た color.x を 実行 する と , すぐ に getcl 関数 に 制御 が 移り ます . getcl 関数 は , 画面 
下部 左側 に は カラ ー コ ー ド と, その カラ ー コ ー ド に 対応 し た 色 の 四角 を 表示 し ます . また 画面 下 
部 右側 に は RGBI と いう 文字 と , いく つか の ま * を 並べ て 表示 し ます .。 * 印 は , 現在 表示 され て い 
る 色 の カラ ー コ ー ド を RGBI に 分 解 し た 値 だ け 表 示さ れ ま す . 

左 ボ タン を 押し な が ら マ ウス を 動か す と ,。 リア ル タ イ ム で ※* 印 が マウ ス の 指し て いる 場所 まで 
伸び 縮み し て , 画面 下部 左側 の 数 値 と 色 も 変わ り ま す . 好み の 色 に な っ た な ら 右 ボタ ン で 終了 し 
ます 。 そ うす る と この color.x が 。 そ の と き に 表示 し て いた 色 の カラ ー コ ー ド を 表示 し て 。 それ 以 
後 表 示す る 文字 の 色 を 指定 し た 色 に 変更 し ます . 

動作 の 確認 が で きた と ころ で ,。 この 関数 を ライ ブラ リ に し て お きま し ょ う . 


ar a: \|IbD\usrlib.a getcl.o 


田 〇 言語 か ら ア セン ブラ の プロ グラ ム を 使う 

C 言語 か ら ア セン プラ で 書か れ た プロ グラ ム を 使う こと は 。 他 の C 言 語 処理 系 で も 可能 で す . 
X68000 は せっ か く 68000CPU を 搭載 し て いる の で すか ら , ア セン ブラ で CPU を 直接 操作 し て み 
た いと いう 方 も いる か も し れ ま せん . し か し , 本 書 で は アセ ンプ ブラ や CPU の 詳細 な 知識 を 前 提 と 
せ ず に 話 を すす め て いま す の で , 一 般 的 な 注意 点 と か ん た ん な 事例 で その 雰囲気 だ け を 感じ て お 
く こ と に し ます 。 

そもそも し 言語 は , レジ スタ や スタ ッ ク を 直接 扱え ない の で , C 言語 か ら ア セン ブラ の 関数 を 
呼ぶ と きも , ア セン ブラ か ら C の 関数 を 呼ぶ と きも アセ ンプ ブラ で 整合 性 を と っ て や ら な けれ ば な 
り ま せん . 

C 言語 か ら ア セン ブラ の 関数 を 呼び 出す 場合 は , 以下 の 規則 に 従う 必要 が あり ます . 


・ 引 数 を 正しく 受け 取る 
・ 戻 り 値 を 正しく 渡す 
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・ レ ジス タ を 壊さ な い 
・ 関 数 名 を 正しく 宣言 する 


送 に 。 ア セン ブラ か ら C の 関数 を 呼び 出す 場合 は , 以下 の 規則 に 従わ な が く て は な り ま せん . 


・ 引 数 を 正しく 渡す 
・ 戻 り 値 を 正しく 受け 取る 


この あたり に つい て は ,。C ユ ー ザ ー ズ マニ ュ ア ル の 67 ペー ジ か ら 79 ペー ジ に 詳し い 解 説 が あ 
り ま すか ら 。 より 深く 理解 し た い 方 は 参考 に する と よい で し ょ う . 

アセ ン ブ ラ の プロ グラ ム の 例 と し て doline 関数 と dobox 関数 と いう , グラ フィ ッ ク 画 面 に 論 
理 演算 を ほど こす タイ プ の Hine 関数 と box 関数 を 作っ て み ま す (リス ト 5.14). な お , この プロ 
グラ ム は 関数 だ け で で き て いま す の で 。 コン パイ ル し 実行 きせ る こと は で きま せん 。 次 の 節 で 紹 
介する 強化 版 グ ラフ ィ ッ クエ ディ タ を つく る と き に ,。 ライ ブラ リ と し て 利用 する こと に し ます 。 


リス ト 上 .] 4 dgoline 関数 と dobox 関数 (dO.8) 


1: * doline(x1, y1, x2, y2, col, mode) 
2: * dobox(x1, y1, x2, y2, col, mode) 
3③: * for C's functions. 

4: * Ode ・ 凶 put 

0・ * ・]1 Or 

5: * ・2 and 

・ ・ 3  XOT 

8: * ・4 reset 

9: * ・5 not 

19: 

11: include iocscall.mac 
2! 

1 Fe | この ファ イル 人 人 に 対す る レジ スタ 
15: 

を 

17: * doline(x1, y1, x2, y2, col, mode) 
18: * 

19: 
29: ALLREG Teg d3-d7 
21: dd Teg d1 
22: PX Teg d2 
23: py Teg d3⑬ 
24: 
25: xl Teg dg 
26: yl Teg d1 
ee Teg d2 
28: y2 Teg d3 
29: dx Teg d4 
39: dy Teg d5 
31: col Teg d6 
32: mode Teg d7 
3 ・ 
34: yoff Teg 82 
95: 
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35・ 
37・ 
38: 
39: 
49: 
41: 
42: 
43: 
44: 
45: 
46: 
47・ 
48: 
49: 
50: 
51・ 
52・ 
995 
54: 


67: 
68: 
69: 
79: 
『4 か 
72: 
73.。 
74: 
7 
76: 
する 
78: 


8: 
81: 
82: 
83: 
84: 
65: 


87: 
88: 


9: 
91: 
92・ 
93: 
94: 
95: 
96: 
97・ 
98: 
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56: 
57・ 
58: 
59: 
69: 
51: 
62: 
63: 
64: 
05・ 


_doline: 


next・ 


next2: 


linel: 


loop1: 


Inext1: 


line2: 


loop2: 


Inext2: 


include 
も GXL 


.globl 
link 
mOVe. | 
mmOVem. | 
I0CS 
tst. | 
bmi 
MOVeM. | 
and.w 
add.w 
mmOVe. | 
Sub. | 
bpl.s 
neg. | 
eXg 
eXg 
mOVe. | 
WOVe. | 
Sub. | 
bpl.s 
mmOVe. | 
neg. | 
MOVe.W 
MOVe.W 
tgt。! 
beq 
tst.| 
beq 
mmOVe. | 
add. | 
MOVe. | 
add. | 
CmD. | 
bcs.S 


MMOVe.W 
mOVe. | 
neg. | 
bsr.S 
add.w 
add. | 
bmi.S 
addq.w 
Sub. | 
dbra 
bra.S 


間 OVeG.W 
mmOVe. | 
neg. | 
bsr.S 
addq.w 
add. | 
bmi.S 
8dd.w 
Sub. | 
dbra 
bra.S 


doscall.mac 








_doline 

fp,#-6 | レジ スタ の 保存 , 6 バイ ト の バッ ファ 確保 

Sp, gptTr 

ALLREG, -(SP) 

_POINT グラ フィ ッ ク 画 面 が 使用 で き 

dg な けれ ば ー1 を 返す 

lineexit 

8(fp),x1/y1/x2/y2/col/mode ……… ジ 引数 を 受け 取る 

#7 , mod 

[ dot ルー チン 用 に mode を 計算 し な お す 

X2, dx | 

0 dx = XZ - X] し dx を 求め る 
.dX dx = Idxl | 

X1,X2 | 」y2 と な る よう に 座標 を 入れ 換え る 

yly2 | 

#1,yoff 

y2,dy 

Pe dy = Iy2 - y1I dy と y2 一 y1 の 符号 を 求め る 

heX 

#-] ,yoff 

dy ) 

x1.Cgptr) | < ッ フ ァ に 点 を 打ち 始め る 座標 を 代入 

y1,2(gptr) | 

dx 三 0 な ら 維 線 用 の ルー チン へ 

yline 叶 

CV SS | =0 な ら 横 欄 用 の ルー チン へ 

xline | 

dX, DX PX =2*dx ) 

1 ヨコ 衝 生 y | に 

DY,DY 


dx, dy | dx>dy な ら ば 
1ine2 | line2 ル ー チ ン で 線 を 引く 


yoff,d4 
dy, dd 

dd 

dot 
d4,2(gptr) 
PX, dd 
Inext1 

#], (gptr ) 
py, dd 

dy, loop1 
lineexit 


yoff,d5 
dx, dd 

dd 

dot 
#1,9(gptr) 
py, dd 
Inext2 
d5,2(gptr) 
PX, dd 

dx, loop2 
lineexit 


dd = -dyi 
do { 
putdotj 
y += yoOff: 
dd += pxXi 
if (dd >= 9) { 
X++) 
dd -= pyi 
) | 
) while (--dy >= の ): | 


DDA 法 に よっ て dx ミミ dy の 線 を 引く 





dd = -dx: 
do { 
putdot 
X++ 。 
dd += py 
if (dd >= 5 
y += yoOffi 
dd -= pxXi 


DDA 法 に よっ て dx>dy の 線 を 引く 


}) while (--dx >= 9): 


99: 
199: 
191: 
192: 
193: 
194: 
105 : 
196: 
197: 
198: 
199: 
110: 
4 
112: 
113: 
114: 
Lo 
116: 
117: 
118: 
119: 
129: 
121: 
122: 
123: 
124: 
125・ 
126: 
127: 
4・ や 
129: 
139: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
149: 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
159: 
151: 
152: 
153: 
154: 
155: 
156: 
SE 
158: 
159: 
169: 
161: 
162: 


xline: 


yline: 


ylineloop: 


lineexit 


補 球 球 失 球 球 


dot: 


modetbI: 


p_a8and: 


DP_XOT・ 


p_TeSet: 


p_n0t: 


p_nOne・ 


* dobox 


dot routine 


break 
Ode 


bsr 
add 
dbr 
bra 


OV 
bsr 
add 
dbr 


MOV 
Un 
TtS 





.S dot | 
q.w #1.9(gptr) 
dx。XLHne 横線 を 引く 
.S ineexit 
e.W yoff,d4 
.S dot 
.W  d4,2(gptr) | 1 
8 dy,ylineloop 
em.| (SP)+,ALLREG | am 
k fp 議 
・ (al1) x 
2(al) y 
d6 color code 
d7 mode 


・ ag, dg 


り 

] 
5 軍 
。 3③  XOYP 
8 、 信 

Ri 


put 
OF 
and 


5.2 複数 の 


reset without color code 
not without color code 
.text 
mOve.w modetbl(pc,mode.w),a! | ーー 
JmD modetbl(pc, ag.w) | モー ド に 従っ て 分 央 する 
dc.w p_Set-modetbl 
dc.w p_Or~-modetbl 
dc.w p_and-modetb] 
dc.w DP_XOr~-modetbl 
dc.w p_reSset-modetbl 
dc.w p_not-modetbl 
dc.W p_none~-modetbl 
dc.w p_none~-modetbl 
9 「 col で ドッ ト を 打つ 
rtSs 
IO0CS _POINT | 
OF。W col,4(gptr) 画面 上 の 色 と col の or で ドッ ト を 打つ 
IO0CS _PSET | 
『tSs 
10CS _POINT | 
and.w col,4(gptr) 画面 上 の 色 と col の and で ドッ ト を 打つ 
IOCS _PSET 
TtS 
I0CS _POINT | 
eOT.W col,4(gptr) 画面 上 の 色 と col の xor で ドッ ト を 打つ 
IO0CS _PSETI | 
TtS 
Clr.w 4(gptr) | 黒色 で ドッ ト を 打つ 
IOCS  _PSET 
rts 
I0CS _POINT 
not.w 4(gptr) - 画面 上 の 色 を 反転 する 
10CS _-PSEI | 
Fts 


計 ま 
ェ コ ロロ 


を 使っ た プロ グラ ミン グ 
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163: 
164: 
165: 
166: 
167: 
168: 
169: 
17: 
W 
1723 
1 73<・ 
174: 
175: 
176: 
か 
178: 
179: 
189: 
181: 


182: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 
199: 
191: 
192: 
193・ 
194: 
195: 
196: 
9/? 
198: 
199: 
2M: 
291 : 
202 : 
203: 
2g4: 
295: 
206: 
297: 
298: 
299: 
219: 
5 
人 
Z213・ 
の 1 ん 1 
215 
216: 
人 
218: 
6: 
22: 
ン イ 本 
222・ 
223・ 
2 
の 20: 
226: 
227 


2966 


由 


ALLREG 
x 1 
y 1 
X2 
yZ 


dd 
dx 
dy 
col 
mmOde 


_dobox: 


nbox: 


nbox2: 


boxexit: 


xbox: 


Te5g 
Te5g 
Te5g 
Te5 
Teg 


Teg 
Teg 
Teg 
Teg 
Teg 


text 
.globI 
link 
mOVe. | 
MOVeW. | 
I0CS 

も gt。! 
bmi.S 
MMOVem. | 
OVem. | 
and.w 
add.w 
Cmp. | 
bpl.s 
eXg 
Cmp. | 
bpl.s 
eXg 
OVe. | 
Sub. | 
mOVe. | 
Sub. | 


mOVe.W 
mmOVe.W 
mmOVe. | 
bsr.S 

OVe.W 
MOVe.W 
WOVe. | 
bsr.s 

Subq. | 
bmi.S 

addq. | 
mmOVe.W 
四 OVe.W 
mOVe. | 
bsr.S 

四 OVe.W 
mOVe.W 
四 OYe,| 
bsr.s 


mmOVem. | 
unlk 
TtS 


bsr 
addq.w 
dbra 
FtSs 


d3/d6-d7/a3-a5 
a2 
83 
84 
a5 


d1 
dZ 
d3 
d6 
d7 


_dobox | レジ スタ の 保存 , 6 バイ ト の バッ ファ 確保 
fp,#-6 | 
SpP, gptr 
| グラ フィ ッ ク 画 面 が 使用 で き 
| な けれ ば ー1 を 返す 


ALLREG, -(SP ) 
_POINT 

d9 

boxexit ] 
8(fp), x1/y1/x2/y2 Co 
24(fp),col/mode 1 の) 
ンー ュー っ dot ル ー チ ン 用 に mode を 計算 し な お す 
klrx2 ] 

nbox x1] ご x2 に な る よう に x1, x2 を 入れ 換え る 

し | 

y1,y2 
nbox2 
y 1 , y2 
X2,.dX 
9 _ dx, dy を 求め る | y1 こく y2 に な る よう に y1,y2 を 入れ 換え る 
yl,dy 





x1,9(gptr) | 
y1,2(gptr) 箱 の 上 側 の 線 を 引く 
dx,dd | 
XboxX draw Over Xline 
x1,.9(gptr) | 
y2,2(gptr) 

dx, dd 

Xbox draw under Xline 


#2,dy | - 
boxexit | の 


重 遇 明生 FPNrwemoaoniokt 上 下 各 1 ドッ ト ず つ は も う 描 画 し 終わ っ て いる の で , 数 値 を 計算 し な お す 
x1.(gptr) 

y1,2(gptr) 

ybox draw left Yline 
x2,9(gptr) | 
2 に | 箱 の 右側 に 線 を 引く 
ybox draw right Yline 


箱 の 下 側 の 線 を 引く 





箱 の 左側 の 線 を 引く 





(SP)+, ALLREG [ 
fp 


dot 
#1,9(gptr) 
dd, xbox 





箱 の 上 側 と 下 側 の 線 を 引く た め の ル ー チ ン 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


228: 

229: ybox: bsr dot 

の 9  。 2 灯 の 左側 と 右側 の 線 を 引く ため の ル ー チ ン 
3 の > rts 

239・ 

234: end 


書 式 int doline (x0, y0, x1, y1, color, mode) : 


Int x0, y0, x1, y1: 
Int COIOr: 
Int mode : 


始点 (x0, yO) か ら 終 点 (x1, y1) まで , 画面 上 の 色 と color を mode に 従っ て 論理 演算 プク リッ ピ 


ング し て 線 を 描く (65, 536 色 モ ー ド に し か 対応 し て いな い ) 


int dobox(x0, y0, x1, y1, color, mode) : 


Int x0, y0, x1, y1: 
Int COIOr: 
Int mode : 


始点 (x0, yO) か ら 終 点 (x1 y1) まで , 画面 上 の 色 と color を mode に 従っ て 論理 演算 プク リッ ピ 
ング し て 箱 を 描く (65, 536 色 モ ー ド に し か 対応 し て いな い ) 


node | も es 央 提 
| o | agesfs 
| 1 | colg を 画面 と の を 表示 する 
| る | codw を 末 硬 その amd を 表示 する 
|s 
相 天 
| 















color と 画面 と の xor を 表示 する 


表 巳 .B doOline 関数 と dODOx 関数 の 仕様 


この 関数 は 非常 に 応用 範囲 が 広い た め , IOCS コー ル を 使っ て ,。 どの グラ フィ ッ ク モ ー ド で も 動 
く よ う に 作っ て あり ます . また,。 こ の プロ グラ ム で は 。 整数 型 Bresenham アル ゴリ ズム を 用 いて 
いま す 。 この アル ゴリ ズム は ,。 直線 を 描く 場合 に よく 使わ る アル ゴリ ズム で , 整数 の 加減 算 と 乗 
算 し か 行なわ な いた め 高 速 な 処理 を 期待 で きま す . 詳し い 内 容 に つい て は , グラ フィ ッ ク の 専門 
書 等 を 参照 し て くだ さい . 

実際 に 色 を 描く に は , まず IOCS コー ル の POINT で 指定 し た 座標 の 色 を 調べ て , その 人 色 と 指 定 
し た 色 で 論理 演算 を し て ,。 その 結果 を IOCS コー ル の PSET で 表示 し ます . 
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5 章 X68000 らし い プ ログ ラミ ング 


りら づつ グラ フィ ッ ク エ ディ タ の 強化 


さて 。 こ れ ま で 紹介 し て きた よう に 。 構造 的 に 記述 し た い 部 分 は C 言語 で 。 カ ッ ト ア ンド トラ 
イ で 作る ほう が 便利 な 関数 や ,。 グラ フィ ッ ク ,。 サウ ンド な どの C 言 語 か ら 扱う の が 面倒 な 部 分 は 
X-BASIC で , 速度 の 必要 な 関数 は アセ ン ブ ラ で と 。 各 言 語 の 特色 を いか し た プロ グラ ミン グ を 行 
ゅ まし た 。 ま た 。 こう し て 作っ た 関数 を 。 ライ ブラ リ 化 。 外部 関数 化し て 自由 に 使え る よう に し 
まし た だ 。 

本 章 の 最後 に 。 これ まで で きた 関数 と 。 あら た に いく つか の 関数 きら に 追加 し て , すでに 紹介 
し た グラフ イッ メグ エディ イル を 多 化 し て みる と と し まし ょ う 。 





ロ .3.1 update 関数 と undO 関数 


ここ で は , C 言語 。X-BASIC,. アセ ンプ ブラ の 関数 を mkb で X-BASIC の 外部 関数 に し て , グ 
ラフ ィ ッ クエ ディ タ の 機能 強化 を は か り ま す . まず , これ まで 紹介 し て きた gsave 関数 , gload 関 
数 。 getcl 関数 。 doline 関数 。 dobox 関数 を 使い ます . そし て , あらた に , update 関数 と undo 関 
数 を 作る こと に し ます . 

update 関数 は グラ フィ ッ ク 画 面 を バッ ファ に 退避 する 関数 , undo 関数 は 退避 し た 画面 を 復帰 
する 関数 で 。 プロ グラ ムリ スト は リス ト 5.15 で す . 


リス ト 嘱 . 1 性 upqate 関数 と undo 関数 (undO.S) 


1: * void update() 

2: * void undo() 

S・ .Include doscall.mac 
4: 

5: count: eqUu $8W/(4*8)-]1 

6: grpbase: eqU $c り 9 

7: cnt Teg d1 

8: from Teg aM 

9: で 0 Teg a1 

19: 

11: .BSS | 画面 デー タ を 保存 
12: grp: .DS.B  $8D9M data area for saving graphic d | する た め の バ ッ フ ァ 

ata 

3 

14: 

19:・ .text 

16: .glob| _update 

17: _update: clr.|  -(sp) 

18: DOS _SUPER 

19: mOve.| d,(sp) 
2: mOVe.| #count,cnt 
L mOVe.| #grpbase,from 
22: mOVe.| #grp,to 
23: loop1: mOVe.| (from)+,(to)+ 





26 ひ 8 
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24: mOve.| (from)+,(to)+ 
25: mOVe.| (from)+,(to)+ 
26: mOve.| (from)+,(to)+ 
27< mOVe.| (from)+,(to)+ 
28: mmOVe.| (from)+,(to)+ 
29: mOVe.| (from)+,(to)+ 
39: move.| (from)+,(to)+ 
S1< dbra.s cnt,loop1 

の DOS _SUPER 

33・ addq.| #4,sp 

34: rts 

35: 

35・: .globl _undo 

37: _undo: clr.|  -(sp) 

38: DOS _SUPER 

39: move.| dg,(sp) 

4: mOVe.| #count,cnt | 
41: mOVe.| #grTp,from 各 レ ジス タ の 初期 化 
42: mOVe.| #grpbase, to 
43: loop2: mmOVe.| (from)+,(to)+ 
44: mOVe.| (from)+,(to)+ 
45: mOVe.| (from)+,(to)+ 
46: mOVe.| (from)+,(to)+ 
47: mOVe.| (from)+,(to)+ ! 画面 デー タ の 復帰 
48: mOVe.| (from)+,(to)+ 
49: mOVe.| (from)+,(to)+ 
50: mOve.| (from)+,(to)+ 
oO1: dbra.s cnt, loop2 

52: DOS _SUPER 

oO3・ addq.| #4,sp 

54: ド も 

ob・ 

55: .end 





void update () : 


機 能 画面 デー タ を 退 放 する 
(65, 536 色 モ ー ド に し か 対応 し て いな い ) 


機能 退避 し た 画面 デー タ を 復帰 する 
(65, 536 色 モ ー ド に し か 対応 し て いな い ) 


表 巳 .Z update 関数 と undO 関数 の 仕様 





この update 関数 と undo 関数 は 。 内 部 に 512K バイ ト の バッ ファ を 持っ て いま す . そし て その 
バッ ファ と グラ フィ ッ ク RAM と の 間 で デー タ の 交換 を 行う の で す .。 た だ し 512K バイ ト を 転送 
する に は 結構 時 間 が か か っ て し まい ます . 
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5.3. 外部 関数 へ の 追加 


これ ら す べ て の 関数 を grp.fnc と いう 名 前 の 外部 関数 ファ イル と する た め の ヘ ッ ダ ファ イル を 
用 意 し て くだ さい (リス ト 5.16). 壮 FNC 壮 grp ディ レク トリ の ト 下 に 格納 し ます . 


リス ト .] 旭 ヘッ ダフ ァイル (grp.mkb) 


int gsave(str fname, int x, jnt y!, int x1, int y1): 

int gload(str fname, int x, int y): 

int getcl(int color): 

int doline(int xg, int y!, int x1, jnt y1, int color, jnt mode): 
int dobox(int xint y9, jint x1, int yl1, int color, int mode): 
void update(): 

void undo(): 


_-J OO) C れ 1 お | で C の トウ ンー 





それ で は 。 これら の 関数 を ひと まとめ に grp.fnc と いう 名 前 の 外部 関数 ファ イル に 変換 し ます . 
mkb で 指定 する ファ イル 名 は 。 ルー トディ レク トリ か ら の 絶対 パス 名 で 指定 し て くだ さい . 


mkb grp.mkD \c\gls\gload.C \C\glsS\gsave.C \Dc\getcl\getcl.Das 


\aSm\dO\dO.S \aSm\undo\undO.S 


正常 に 終了 し た ら ,。 grp.fnc と いう 外部 関数 ファ イル が で き て いる は ず で す ( 図 5.14). 


オッ クタ ルー ド | osa 


コン バー タ 
dSaVe .C qload .C 
テー ブル UI ン パ イラ 
の 作成 9gSaVe .S gload . s getcl.s 


sch フ ァイル へ の 変換 


間 罰 


に : を as 


undo . sch 


テル) 
grD . obj gsave . Obj gload . obj getcl . obj do . obj 


dosliD . a 
IOCSIiDb .a 


qrD . Sch qSave . SCh qload . sch getcl .sch do . sch 


〇 ) 
日 
\ 
oe 條 
ーー ーー 





ライ ブラ リ 


品 .1 外部 関数 ファ イル 作成 の 流れ 
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53 次 ラフィ ッ クエ デ ャ ウツ の 強化 


それ で は , で き あ が っ た 外部 関数 を XX-BASIC に 組み 込み ます 。 BASIC2 の 下 に ある BASIC. 
CNE を リス ト 5.17 の よう に 書き 換え て くだ さい 。 以前 に 作っ た gls.fnc で サポ ー ト し て いる 関 
数 は , 今回 作っ た grp.fnc 中 に 含ま れ て いま すか ら 必 要 あ り ま せん . ディ スク 容量 を 節約 する た め 
に も 削除 し て くだ さい . 


リス ト .] プ フ BAgIC.CNF の 変更 


1: FREE = 128 

6: WIDTH = 64 

S・ BEEP = DON 

4: CAPS = OFF 

oS・ FUNC = AUDIO 
6: FUNC = GRAPH 
7: FUNC = MOUSE 
86: FUNC = MUSIC 
9: FUNC = SPRITE 
19: FUNC = STICK 
11: FUNC = IMAGE 
12。 FUNC に 1 ud 証 還 CCCEECCECECEE 今回 作成 し た 外部 関数 ファ イル の 名 前 





さて , これ か らい よい よ グ ラフ ィ ッ クエ ディ タ を 強化 する の で す が , 変更 点 は それ ほど 多く な 
ゅ ぃ い の で , 先ほど の リス ト と の 差分 だ け を 掲げ て お きま す ( リ スト 5.18)、 ほとん ど 関 数 を そっ くり 
差し 換え る だ け の 変更 で 強化 版 の グラ フィ ッ ク エ ディ タ が 完成 し ます . 変更 後 の フ ァイル 名 は , 
sged.bas と で も し て お きま し ょ う 。 

構造 的 に プロ グラ ミン グ さ れ て いる と , この よう に 関数 の 置き 換え を だけ で 。 チュ ー ン ナッ プ を 
は か る こと が で きま す .。 ちょ うど 車 の 部 品 を 交換 する の と 同じ よう な 感覚 で 行う こと が で きる の 
で は な いで し ょ うか 、 


画 変更 する 部 分 
・ 初 期 化 部 (| | の 部 分 を | | の よう に 変更 する ) 


int AutoUlp = /* AutoUpdate mode (now can't support) 
float Buffer(65535) 
float tmpl(127), tmp2(127), tmp3(127), tmp4(127), tmp5(127), tmp6(127) 


int AutoUp = -] /* AutoUpdate mode 
Str Tmpfname = "temp.ged" 
float tmp5(127), tmp6(127) 





・HOUpChange 関数 


func doUpChange() 
beep 
endfunc 


func doUpChange() 
AutoUp = not AutoUp 
endfunc 
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・HOUn ロ 0 関数 


func doUndo() 
beep 
endfunc 


func doUndo() 


Int x, y 

clearMS() 

undo( ) 

SpPOS(X, y) 

initMS(x, y) 
endfunc 


・HOUpdate 関数 


func doUpdate() 
beep 
endfunc 


func doUpdate() 
Int X, y 
clearMS() 
update() 
SpPOS(X, y) 
initMS(x, y) 
endfunc 


・dOGIOg ロ 関数 


func doGload() 
beep 


endfunc 








func doGload() 
str fname 
scrOoff() 
fname = getFname() 
scroh( ) 
clearMS() 
if gload(fname, 9, 9) <> 9 then beep 
SDOS(X, y) 
initMS(x, y) 
endfunc 


メメ 


5.3 グラ フィ ッ ク エ ディ タ の 強化 


・dOGSaVG 関数 


func doGsayve( ) 
beep 
endfunc 


func doGsave() 
str fname 
scroff( ) 
fname = getFname() 
scron() 
clearMS() 
if gsave(fname, 9, 9 511, 511) <> then beep 
SDOS(X, y) 
initMS(x, y) 
endfunc 





*・dr ヨ WLIine 関数 


func drawLine(orgX, Orgy) 
repeat 
msstat(x, y, left, right) 
mmSpOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
cursorMS(x, y) 
until left = 
clearMS() 
1ine(orgx, OFgyY, X, Y, CI) 
jnitMS(x, y) 
endfunc 


func drawLine(orgx, Orgy) 
int oldx, oldy 
WSPOS(X, Y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS() 
doline(orgx, OoTgy, X, Y, CI, 3) 
initMS(x, y) 
oldx = x : oldy = y 
repeat 
msstat(x, y, left, right) 
mSpOoS(X, y) 
if MenuType = 2 then toHard(orgx, orgy) 
if (x <> oldx) or (y <> oldy) then 【 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, X, yY, CI, 3) 
initMS(x, y) 
oldx = x : oldy = y 
) 
until left = 
clearMS() 
doline(orgx, orgy, X, Y, CI, 9) 
initMS(x, y) 
endfunc 
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*draWLine8 関数 


func drawLines(orgx, orgy) 
Tepeat 
Fepeat 
msstat(x, y, left, right) 
mSPOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
cursorMS(x, y) 
until (left = 9) or (right <> 
ifright =then { 
clearMS() 
line(orgx, orgy, X, y, CI) 
initMS(x, y) 
OTgX = X : Orgy = y 
Fepeat 
msstat(x, y, left, right) 
間 SPOS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
CursorMS(x, y) 
until (left <> 9) or (right <> の 
) 
untilright <> 
endfunc 





func drawLines(orgx, Orgy) 
int oldx, oldy 
repeat 
WSPOS(X, y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS() 
doline(orgx, orgy, X, y, Cl, 3) 
InitMS(x, y) 
oldx = x : oldy = y 
repeat 
msSStat(x, y, left, right) 
SpOS(X, y) 
if MenuType = 2 then toHard(orgx, orgy) 
if (x <> oldx) or (y <> oldy) then { 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, X, Y, Cl, 3) 
initMS(x, y) 
oldx = xX : oldy = y 


) 
until (left = 9) or (right <> ) 
ifright =then { 
clearMS() 
doline(orgx, orgy, X, yY, Cl, ) 
OFTgX = X : OFTgY = Y 
doline(orgX, orgy, X, Y, Cl, 3) 


initMS(x, y) 

repeat 
msstat(x, y, left, right) 
MSDOS(X, y) 


ijf MenuType = 2 then toHard(orgx, orgy) 
if (x <> oldx) or (y <> oldy) then { 
clearMS( ) 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, X, y, cl, 3) 
initMS(x, y) 
oldx = x : oldy = y 
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until (left <> の or (right <> 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
initMS(x, y) 

) else { 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
initMS(x, y) 


until right <> 9 


endfunc 





・ 互 日 uf 関数 


func getBuf(x1, y1, y2) 
get(x1, yl1, X2。, Buffer) 
endfunc 


func getBuf(x1, yl, y2) 
gsSave(Tmpfname, y1, x2, y2) 
endfunc 





*DutBuf 関数 


func putBuf(x, y) 
put(x, y, x + BufX, y + BufY, Buffer) 


endfunc 


func putBuf(x, y) 
gload(Tmpfname, X, ゞ ) 
endfunc 





・Clear 日 Ox 関数 


func clearXBox(x1, y1, x2, y2, cl) 
putBox(xl, y1, x2, y2) 
endfunc 


func clearXBox(x1, yl1, x2, y2, cl) 
dobox(x1, yl1, x2, y2, cl, 3) 
endfunc 





・ShOwW 日 Ox 関数 


func showXBox(x1, y1, x2, y2, cl) 
getBox(x1, y1, x2, y2) 
ine(xl, y1, x2, y1, cl) /* for X-BASIC's BUG of box 
1ine(x1, y2, x2, y2, cl) 
line(x1, y1, x1, y2, cl) 
1ine(x2, y1, x2, y2, cl) 
endfunc 


func showXBox(x1, yl1, x2, y2, cl) 
dobox(x1, y1, x2, y2, cl, 3) 
endfunc 
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画 削除 する 部 分 


・ 互 BtC| 関数 


func getcl(cl) 
Tepeat 
cl = dolntInput(9, 2, "What Color (-65535)", cl) 


until (9 <= cl) and (cl <= 65535) 
return(cl) 
endfunc 





・HOIntInput 関数 


func dolntlnput(x, y, mesi str, ans) 
Str temp 
locate x, y 
PFIht meS: 
Input temp 
if temp = ", then return(-1) 
if temp = ”"” then return(ans) 
return(val(temp)) 
endfunc 





*・ 互 6 日 Ox 関数 


いう 
ペン 


func getBox(x1, y1, x2, 
If x1 て then xi 
if xl > 51】 then 
then 
then 


> 
マ く 
テ 
< then 
> 
く 
> 


て 
ょ ーー 
ャ 一 


て 
ャ ーー 
で や 一 


511 then 
9 then り 
511 then = 511 
get(xl, y1, tmpl) : get(xl, y2, x2, y2, tmp2) 
get(xl, y1, xl, y2, tmp3) : get(x2, y1, x2, y2, tmp4) 
'endfunc 


て 
ェ ーー 


1 義 : 補 | ] | 寺 癌 ! 2 生計 EE 六 細 : 拓 ムコ 
で SS 





・Dut 日 Ox 関数 


いう 
ペン 


func putBox(x1, 
if xl < 
if > 511 
if < 凶 
if 511 
if り 
jf 511 
if り 
if 51 1 


CT 
ーー 
一 や 


cm 。 <n 
ャ ェ ーー テーー つ 
ーー や 一 


M 
51 1 
put(xl, yl, tmpl) : put(xl, y2, x2. y2, tmp2) 
puUt(x1。 :\ も tmp3) : put(x2, yl1, x2, y2, tmp4) 
endfunc 


時: 半 : 笠 : ) 旨 
で S 
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5.3 グラ フィ ッ ク エ ディ タ の 強化 


X-BASIC を 起動 し て , sged.bas を 実行 し て みて くだ さい . 基本 的 な 操作 は すでに 説明 し た グラ 
フィ ッ ク エ ディ タ と 同じ で す . いま まで 選択 で き な か っ た 機能 が すべ て 選べ る よう に な っ て いま 
補 。 

まず ,1 段階 の 画面 保護 機能 (undo) を つけ た の で す が , 画面 を 編集 する た びに 画面 を 保存 し て い 
る た め 。 スピ ー ド が 低下 し ます . そこ で 。 指示 され た と きだ け 画 面 を 保存 する モー ド と 切り 替え 
る た め の UndoMode が 使え る よう に な り ま し た . 

また, 画面 を 保存 する 指示 を だ す Update と , 保存 し て お いた 画面 を 回 復 き さき せる Undo が それ 
ぞ れ 有効 に な り ま し た . そし て 画面 の 圧縮 セー ブ を 行う Save, 圧縮 デー タ を 展開 し て ロー ド す る 
Load も 有効 に な り ま し た . 

これ まで の 作業 で usrlib.a に は , stack 関係 の 関数 , gload 関数 , gsave 関数 , getcl 関数 の オブ 
ジェ クト が 登録 され て いる は ず で す .。 し か し た び た び 登録 を 行っ て きた の で 。 登録 し 忘れ た も の 
が ある か も し れ ま せん . そこ で 強化 版 グ ラフ ィ ッ クエ ディ タ で 使わ れる 関数 すべ て を 納め た grp. 
a と いう ライ ブラ リフ ァイル 作り ます . カ レン トディ レク トリ を 生 jib に 移動 し て , ゆ わから まで の 
手順 を 順に 実行 し て くだ さい .。 grp.a と いう ライ ブラ リ が で きる 様子 も 図 5.15 に 示し て お きま 
- 


① cc ググ L ググ O \c\gls\gload.Cc \c\gls\gsave.Cc \bc\getcl\getcl.bas 
② as グ u / グ ia : \include \asm\do\do.S 
③ as グ u / プ ia : \include \asm\undo\undo.S 


④ ar \grp.a gload.o gsave.o getcl.o do.o undo.o 


イン クル ー ド 


1 | IL アセ ンプ ラ 


リン カ 


qetcl . bas 


BASTOC 
コン バー タ 


C 
CC コ シノ トイ ラマ 


ペー 
ーー 


ー+ 
(の 


ペー 
上 





qrD .4 


5.1 巳 ライ ブラ リ 化 の 様子 


シセ ンタ 


5 章 X68000 ら し い プ ログ ラミ ング 


以上 で 。 ラ イブ ラリ ファ イル が で き あ が り ま す . 最後 に sged.bas を いま 作っ た ライ ブラ リ を 
使っ て コン パイ ル し ます 。 sged ディ レク トリ に 移動 し て , 


cc ググ 0 グ Y sged.bas a : \b\sgrp.a 


と 入力 し ます 。 これ で 実行 ファ イル が 作成 され ます 。 この よう に ライ ブラ リ を 作る の は 大 変 で す 
が 。 使う うえ で の 便利 き に は 代え を られ ませ ん . 


5. ノ | より 高度 な プロ グラ ミン グ の た め に 


これ まで の 過程 を 見 直し て みる と , C 言語 で 使え る よう な 形 で 関数 を 作っ て お け ば , 欠 -BASIC 
や アセ ンプ ブラ か ら も 容易 に 使う こと が で きま す .。 で すか ら , 私 た ち が プ ログ ラム を 書く 段階 で , 
あら か じ め そ うし た こと を 意識 し て いれ ば 。 プ ログ ラミ ング の 効率 も よくなる で し ょ う . 

また , それぞれ の 言語 で プロ グラ ム の 部 品 と し て 関数 を 作り , 最終 的 に それ ら を 組み 立て て 1 つ 
の デ ロ グ ダラ ム を 性 り ま し た 。 つ まり 。 分 割 コ ン パ イル の と て くろ で 四 べ た モジ ョ ー ル 化 と いう 夫 え 
か た と 同じ で す 。 

それ ぞ れ の 関数 を 部 品 と し て 作っ て , その 関数 が 正しく 動く か どう か を チェ ッ ク す る の は 比較 
的 か ん た ん で す . そし て , そ の と き に 全体 的 な プロ グラ ム の 構造 の 見 通し を た て て お け ば 。 1 つの 
プロ グラ ム と し て まとめ た 場合 に も あま り バ グ は 発生 し ませ ん 。 この よう に 。 モジ ュー ル 化 と い 
うほ は プログラム も 作る より よい 方法 の 1 つ だ いえ る で し ょ うろ み 。 その 上 。 モジ ュー ル は ほ は それぞれ 
独立 し て いま すか ら 。 ライ ブラ リ に 組み 込ん で 他 の プロ グラ ム か ら 活 用 する こと も で きま し た . 

た だ し , ソー スプ ログ ラム が 新しく な っ た か ら と いっ て ,。 自動 的 に その ソー ス を 使っ て いる ラ 
イブ ラリ や 外部 関数 まで も が 新しく な る わけ で は あり ませ ん 。 た と えば 。 ソー スプ ログ ラム か ら 
は パグ を と っ た の に , ライ ブラ リ や 外部 関数 を 使っ た プロ グラ ム に は バグ が 残っ た まま と いう こ 
と も あり ます . ソー スプ ログ ラム を 新しく し た あと で ,。 ライ ブラ リ へ の 再 登 録 や , 外部 関数 ファ 
イル の 作り 直し を 忘れ な いよ うに 気 を つけ て くだ さい 、。 

これ まで 述べ て きた よう に 。 この CCompiler PRO-68k で の モジ ュー ル 化 プロ グラ ミン グ と い 
う の は, (ん 表 請 のり プログ ラム に つい て だ けり で な て 。 え -BASIC や アセ ッ プ ラ の デ ロ グ マラ マム に つい で 
も いえ る こと で す .。 最初 に 述べ た よう に ,。 XX-BASIC,。BASTOC,。 C。 ア セン ブラ は すべ て 組み 合 
わせ て 使え ます 。 そし て 効果 的 に 組み 合わ せ て 使う た め に は , モジ ュー ル 化 と いう こと に 注意 を 
払っ て お く こ と が 重要 な の で す . 
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ーーーーーーーーー X59 り 0U 


の 、 ー テ ファ オォ テ ズ 
に ま す ア て 7 和信 
メモ ギリ アブ と 


PEEK B 


PEEK W er 
POKE B 0 草 


ーー トラ タ cis - 周辺 の ソフ トウ ェ ア 


_xBBaOoOt は これ まで の マシ ン に 見 られ な か っ た よ うな 斬新 


ーー な マシ ン で す が , その 結果 これ まで の ソフ トウ ェ ア 資 産 を 受け 継 


- ぐ こと か が できない と いう 宿命 を 負っ て いま す - 


1:kkenkike 本 書 を 執筆 し てい る 現在 
(1 年 月 現在 ) でも. 他 の マシ ン と 比較 する と. まだ まだ 少 
ココ な いと いわ ざる を 得 な いと いう の が 実情 で す . | 
の 制 し か し , 数 は 少な いな か ら も , XGO ロ O の グラ フィ ックス を い 
エン エ か し た エディ タ ゼ _X-BASIO を 拡張 する た め の 外 部 関数 バッ 
- ケ ー ジ な ど , ユー ザー で あれ ば 欲し く な る よう な 質 の 高い も の が 発 


売 さ れ て いま す . 本 凍 で は , これ ら の 開発 ツー ル の いく つか を 紹介 
DSKI ( する こと に し ます . ーー 


LOADM 
SAVEM ー 


EJEC『 


HDOFF 


G OK 
GETPAL 
MOVLAP 


MOVPAL 間際 人 


CRT 制 邊 
CHANNEL 
CRT 
FADE IN 
ADE OU 
TVPW OFF 


TVPW ON 


KEYDELAY! 
KEYDELAY< 


6.| エディ タ 一 windex 一 


B. ] エディ タ 一 WITOeX 一 





X68000 に は 。 ED.X と いう エディ タ が 標準 添付 され て いま し た . これ は , CP/M や MS-DOS の 
環境 で は 有名 な 。WordMaster と いう エディ タ に よく 似 た 機能 を 持っ て お り , 標準 添付 の も の と 
レ し て は と て も よく で き て いま し た 。 し か し ,。 せっ か く ビ ッ ト マ ッ プ ディ スプ レイ が ある の で すか 
ら 。 こ れ を いか し た エディ タ が あれ ば …,。 と 思う の は 筆者 だ け で は な いで し ょ う 

そこ で 。 紹 介する の が windex (開発 : 株 式 会 社 ジ ェ ー・ イ ー・ エ ル ) と いう スク リー ン エ ディ タ 
で す . それ で は 。 この エディ タ の 特徴 に つい て か ん た ん に 紹介 し まし ょ う . 


田 マル チ ウ ィ ン ド ウマル チ テ キス ト 

windex で は 。 1 つの ウィ ンド ウ に 1 つの テキ スト を 置い て 管理 し ます . た だ し 複数 の ウィ ンド 
ウ に 1 つの テキ スト を 割り 当て る こと も 可能 で す . この ウィ ンド ウ は 最大 で 32,766 個 ま で 画面 上 
に 開く こと が で き , その 大 き さ や 位置 を ドッ ト 単 位 で 任意 に 変更 可能 で す (写真 6.1). 


( S 提 include く stdio-h> 
- 4 間 inclgde <io.h> 
BE 、 評 imclude <stdlib.h> 


Hefire FRNRK-1) Fils NGme 
poKchar *。 cdhar 9 userB 


+ user} 


1 は 8 minCaF9C。 SFO) 2 USeT2 


12 der an D う uSerf う 
13 


- 和 argc に う ) も 
fprintfCstdsrr, "Usage 
exit(1)・ 


i† (oey(ari argui2]) 王 
PeFrOr arg): 
fputs(“ コピ ビー に 失 攻 し 
exit(1): 


} 
exit(M ゆ : 
15 user15 


2b 16. dfile) 
7fchar *Sfi le: 
28. Char ォ *d 和 † ie: 





写真 B.1 windex で ウィ ンド ウ を 開い た と ころ 


ウィ ンド ウ の 操作 は 。 ビ ジュ アル シェ ル の 操作 と 同様 で . ウィン ドウ の 開閉 や 位置 の 移動 , ズー 
ム ア ッ プ な どの 操作 を マウ ス で 行う こと が で きま す .。 ちょ うら と ビジ ュ ア ル シ ェ ル 上 の ウィ ンド 
ッ で 。 アイ コン の 代わ り に テキ スト が 表示 され て いる 状態 を を 考え て も ら え ば よい と 思い ます .。 も 
ちろ ん ウィ ンド ウ の 高 さ や 幅 。 位置 の 指定 , ウィ ンド ウ 内 の テキ スト の スク ロー ル も 目 由 で す . 

また , テ キス ト フ ァイル は 同時 に 1,024 個 まで 扱う こと が で きま す . 実際 に は メモ リ 容 量 の 関係 
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で ウィ ンド ウ や テキ スト の 数 は 制限 され ます が ,。 それ ほど た くさ ん の ウィ ンド ウ を 開く こと は ま 
れ で すか ら , メモ リ を まっ た く 増 設 し な く て も 実用 上 は 問題 な いで し ょ う 

この マル チ ウ ィ ン ド ウン マル チ テ キス ト 機 能 は 。 ソー スプ ログ ラム を 複数 に 分 割 し て プロ グラ 
ミン グ を する 場合 に 真価 を 発揮 し ます . た と えば ,。 ある ソー スプ ログ ラム を エディ ッ ト し て いる 
と , 別 の ソー スプ ログ ラム を 参照 し た い 場合 が よく あり ます . その よう な と き , マル チ テ キス ト 
機能 が な い エ ディ タ で は , 参照 し た い ソ ー ス プロ グラ ム を 表示 させ る た め に 。 い ちい ち エ ディ タ 
を ぬけ て TYPE コマ ンド な ど を 実行 する と いっ た 非常 に 面倒 くさ い 作 業 を し な けれ ば な り ま せ 
ん . 


一 マウ ス に よる 操作 

windex で は , キーボー ド か ら だ け で は な く マ ウス か ら も ファ イル 操作 や 文字 列 の 検索 。 置換 等 
の 操作 が 行え を る を よう 。 プルダウン メニ ュー と ポッ プア ッ プ メニ ュー が 用 意 さ れ て いま す 。 

プル ダウ ン メ ニュ ー と は 。 画面 上 部 の メニ ュー バー に 表示 され て いる タイ トル の 部 分 に 。 マウ 
スカ ー ソ ル を 合わ せ て マウ ス の ボタ ン を 押す と 表示 され る メニ ュー の こと で す 。 プル ダウ ン メ 
ニュ ー の 種類 は 写真 6.2 の と お り で す . 

これ ら の メニ ュー 機能 の お か げ で 。 キー へ の コマ ンド 割当 て を 覚え てい なく て も 。 ファ イル 操 
作 や 文字 列 操作 な どの 処理 を 行う こと が で きま す . 

また , 文字 列 の 切 貼 り プ 号 し 貼り や 検索 , 置換 の 際 に 領域 指定 を 行う 必要 が あり ます が , この 
と きも マウ ス を 使っ て 非常 に か ん た ん に 領域 指定 を 行う こと が で きま す . 


較 マク ロ 機 能 
マク ロ 機 能 と は , あ る 連続 し た 複数 の 操作 を まとめ て 1 つの 操作 に 割り 当て 実行 する 機能 で す . 
windex で は 。 36 個 ま で マク ロ を 定義 むす る こと が で きま す . 


田 キー 定義 な ど ご の コン フィ ギュ レー ショ ン 

windex で は , 若干 の 制限 は ある も の の , フ ァイル 操作 や 文字 列 検索 , 置換 な どの コマ ンド を 任 
意 の キー に 割り 当て る こと が で きま す . また , 自分 で キー の 割当 て を 定義 むす る だ け で は な <, 標 
准 で 次 の よう な いく つか の 定義 ファ イル が 提供 され て いま す . 

で すか ら , 他 の エディ タ を 使い 慣れ て いる 方 で も , あま り 抵 抗 を 感じ る こと な く windex を 使う 
と と が で き ます, 


・ オ リ ジ ナ ル の コマ ンド 割当 て 

・ED に 準拠 し た コマ ンド 割当 て 
・IMIFES に 準拠 し た コマ ンド 割当 て 
・V-EDIT98 に 準拠 し た コマ ンド 割当 て 
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ファ イル の 保存 と エディ タ の 終了 
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田 マル チ テ キス ト へ の 同時 検索 , 置換 

文字 列 の 検索 や 置換 は , エ ディタ に と っ て 必要 不可 欠 な 機能 で す . も ちろ ん windex で も この 機 
朋 は サポ ー ト され て いま す が , マ ル チ テ キス トマ ル チ ウ ィ ン ド ツウ 機能 を 有効 に 活用 する だ め に 。 
復 数 の テキ スト に 対し て 同時 に 1 つの 文字 列 を 検索 し た り 置 換 す る こと が で きま す . 


B. つ X-BABIC の 拡張 


X-BASIC は 。 外部 関数 を 組み 込む こと で 関数 を 拡張 する こと が で きま す . 本 書 の 4 章 で も 外部 
関数 を 作る 例 を 紹介 し まし た が , 市 販 の 外部 関数 パッ ケー ジ を 使っ て 。 も っ と 手軽 に 拡張 する こ 
と も で きま す . 

ここ で は , 拡張 関数 パッ ケー ジ (開発 : 株 式 会 社 計測 技研 ) の 概要 と 使い か た の 事例 を 紹介 す 
る の に し まし し しま 玉 。 





5. 己 .1 拡張 関数 バッ ケー ジ の 使い か た 


拡張 関数 パッ ケー ジ は 。 外部 関数 の 本 体 (XFUNC.FNC) と その ドキ ュ メ ント ファ イル や サン 
ブル プロ グラ ム が は いっ て いる フロ ッ ピ ー デ ィ ス ク と 。 その マニ ュ ア ル で 構成 され て いま す . 
AFUNC.FNC を 組み 込む こと で 使え る よう に な る 関数 は 。 表 6.1 の よう な も の で す . 

























ANK 文字 を 全角 文字 に 変換 し て 返す 

ARRAYS 配列 の 内 部 表現 を 文字 列 に 変換 し て 返す 
数 値 の 2 進 表現 を 文字 列 で 返す 
| HEXAS | 数 値 の 16 進 表現 を 文字 列 で 返す 
文字 列 中 の 16 進 表現 を 変換 し て 配列 に 格納 する 
文字 列 中 の 16 進 表現 を 変換 し て 文字 列 で 返す 
文字 列 中 の 一 部 分 を 別 の 文字 列 で 置き 換え る 
指定 され た アド レス より デー タ を 配列 に 転送 する 
配列 中 の 一 部 分 を 指定 され た アド レス へ 転送 する 
文字 列 を 配列 の 内 部 表現 に 変換 し て 格納 する 
文字 列 へ の ポイ ンタ を 返す 
int 型 へ の ポイ ンタ を 返す 
char 型 へ の ボイン タ を 返す 
str 型 へ の ポイ ンタ を 返す 
float 型 , char 型 ,int 型 の 一 次 元 配列 の 要素 へ の ポイ ンタ を 返す 
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が モリ デ クセ ス 


| PEEKB メモ リ か ら 1 バ イト 読み 出す 


メモ リ か ら 1 ワ ー ド 読み 出す 





| PEEKW 

メモ リ か ら 1 ロ ング ワー ド 読 み 出す 
メモ リ へ 1 バイ ト 書 き 込む 

| POKEW メモ リ へ 1 ワー ド 書 き 込 む 

メモ リ へ 1 ロン グ ワ ー ド 書き 込む 


Jerosrr 


LOADM ディ スク に 格納 され て いる ファ イル を メモ リ 上 に ロー ド す る 

※ 毛 り 上 の 1 ブロッ ク を ファイ ル と し て ディ スク に セー ブ す る 
ブロ ッ ク デ バイ ス か ら 直 接 読 み 出す 
ドラ イブ 状態 を チェ ッ ク や 設定 を する 
フロ ッ ピ ピー ディス ク (2HD) か ら 直 接 読み 出す 
フロ ッ ピ ー デ ィ ス ク (2HD) へ 直接 書き 込む 
EJECT アッ ビー ディ スク の イジ ェクト を 行う 





DRVCTRL 





バー ド デ ィ スク の シッ ピン グ を 行う 

グラ フィ ッ ク の 制御 

グラ フィ ッ ク RAM が 使え る か どう か チェ ッ ク す る 
パレ ッ ト デ ー タ を シフ ト の た め の 領 域 に コピ ー す る 


CHANNEL 専用 CRT の チャ ン ネ ル を 変更 する 








GETPAL 


CRT 専用 CRT の 画面 モー ド を 切り 換え る 

FADE OUT 画面 の コン トラ スト を 変更 し ます 

TVPW OFF 専用 CRT の 電源 を OFF に する 

TVPW ON 専用 CRT の 電源 を ON に する 

VOL 





専用 CRT の 出力 音量 を 調節 する 


キー ボー トド 制御 
INKEY リア ル タ イ ムキ ー 入 力 を 行う 





KEYDELAY 1 キー を 押し て か ら リ ピー ト が 始ま る まで の 時 間 を 設定 する 
KEYDELAY2 キー リピ ビ ピート の 間隔 を 設定 する 
LED キー ボー ド 上 の 各 LED の 点灯 ・ 消 灯 を 行う 
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数 名 | 機 。 能 。 


ADPCM 制御 
ADPCM の 再生 ・ 録 音 を 終了 する 
A STOP ADPCM の 再生 ・ 録 音 を 一 時 停止 する 
RS232C 制御 ' 
COMGCHK RS-232C の 受信 バッ ファ に デー タ が ある か どう か チェ ッ ク す る 
COMGET RS-232C の 受信 バッ ファ か ら 1 バ イト 読み 出す 
COMLEN RS-232C の 受信 バッ ファ 内 の デー タ 数 を 返す 
COMPCHK RS -232C へ 送信 で きる か どう か チェ ッ ク す る 
INITCOM RS -232C を 初期 化す る 
OS 関係 
GETPDB 現在 実行 中 の プロ セス の 管理 ポイ ンタ の 先頭 アド レス を 返す 
IOCS コー ル を 行う 
| PAUSE | 指定 され た 時 間 だ け 何 も せ ず に 待つ (ウェ イト ) 
テキ スト 画面 が 使え ん る か どう か チェ ッ ク す る 
100 分 の 1 秒 単位 で 経過 時 間 を 返す 


表 B.1 XFUNC.FNC に 含ま れる 外部 関数 







ア 
) 






























外部 関数 の 組込み は 。 い た っ て か ん た ん で す . まず, マス ター ディ スク に は いっ て いる XFUNC. 
FNC ファ イル を ,。 自分 の BASIC 起動 ディ スク の BASIC の ディ レク トリ (標準 添付 の 外部 関数 
が は いっ て いる ディ レク トリ ) に コピ ー し て 。 ヾ “BASIC.CNF? に 次 の 一 行 を つけ 加え れ ば 組込み 
終了 です. 


FUNC ニ XFUNC 


な お 。 この 外部 関数 を 使っ て 書い た プロ グラ ム は 。 BASTOC を 使っ て C 言 語 の プロ グラ ム に 変 
換 す る こと は で き て も 。 コン パイ ル す る こと は で きま せん (拡張 され た 外部 関数 と 同等 の 機能 
持つ ライ デラ シリ 泌 な いら いた め )。 
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5. ど . 拡張 外部 関数 の 利用 例 一 ディ スク エディ ター 

ここ で は 。 拡張 関数 パッ ケー ジ に 含ま れ て いる いく つか の 関数 を 利用 し て 。 ディ スク エディ タ 
(DEDIT.BAS) を 作っ て み ま し た 。. 

X-BASIC は 。 ディ スク を セク タ 単 位 で アク セス する 関数 を 備 を て いま せん が , この 拡張 関数 
パッ ケー ジ に は , ブ ロッ ク デ バイ ス を 直接 アク セス する 関数 が ある の で , それほど 苦労 せ ず に ディ 
スタ エディ メグ の よう ちな ジロ ダラ タム を 作成 する る と が で きま すず 。 

この プロ グラ ム を 実行 する と 。 図 6.1 の よう に ダン プリ スト が 表示 され ます 。 


+M +1 1 の 2+314 15416+17+1819+1a +b+Tc +d +e +† : M123456789abcdef 


: 5691c48 る 64736f6e29736f 66 74 29 31 2e : 「.Hudson soft 1. 
: 39 39 94 99 1 99c994d9fe 虹 4f fa : DM ん さ 。U 
: ff e9 43 fa 859999 5: 


で ご 
いこ 」 
ら - で ご む ー ゃ や 
〇 > 
た で の ら こ C で 〇 ここ で ご ここ で ご に 
と ーー CO テー ャ トー 
CO 〇 ) 
い リ SS の % SS 
①「 い の 
CO テー 
お - レー 
CN TO 
- や CN CD 
の の CCGD 
KR%S 
C 
Fo -) 
C で ご こ ご D 


ーー 
T う 
+、 
お - 
て の 
本 ュ - 
ea 
ーー 


ー や ーー や で の ( ぴ び : - で の C で の 

い リ ) 

CO 
いこ 」 
[9 ぶ 」 
の 

で 
ここ 」 
TS 
C こ 


OF 
で ご 
ォ ャ ーー 
Le 選 CO 
の 』| 
1ーー 
の 
ー 
た ご で の ーーCD 
CS 
の - 
CoO 
〇 で 
ォ ーー 
CS の 
C 


CD - や ー テ ーー で お て 

ドリ の 
NN 
NG きだ 避 ざ 選 包 ぐ 
の * 


C で こめ の 


C で て 中 
で ご いこ ヒー 
9 〇 

① 
Nr 

Po 。 】 
て 嘱 ① 
こも で 
〇 ) お - 
+ー CN 
C い - の 
で 5 

こら いい らい た た 


ト こ いこ ドコ 
*ー で 〇 ゆ ① 
で ぐ で ご た 
C こ ご - い 
あ 富 ざき 
お - で の 
に こ 』( 
や 
CA っ] 
の の - 届 

ご る か な ぬき あ る 

の キネ コ や さる あ SS 

で さい の の ーー や 


の SSS 全 す 
あの だ で GSGS や SS で 呈 SS 


99 
1 
4e 
ZD 
65 
1 
ff 
1 
99 
39 
99 
83 
99 
48 
Z6 


8SSSRg お 8 や 8 思 S 
や ep あら ら . な らら な 

や ざか あの 下 Ss 
ざま SS ぷ や ざ 評 


ャ ーー 
〈 〇 の 
ーー 
1 o 


cl 





B.1 DEDIT の 初期 画面 


初期 画面 の 右 隅 に 現在 の モー ド を 示す 表示 が あり ます . モー ド に は , 次 に 示す よう に 3 通り あ 


り ま す . 
メイ ン モ ー ド … ドラ イブ や セク タ を 指定 する 
数 値 入 力 モ ー ド … 数 値 で デー タ を 入力 し , セク タ 単 位 で エディ ッ ト す る 
文字 入力 モー ド … キャ ラク タ で デー タ を 入力 し , セク タ 単 位 で エディ ッ ト す る 


メイ ン モ ー ド か ら 数 値 入 力 モー ド へ は いる の は , メイ ン モ ー ド か ら ^4” を , また 。 数 値 入 力 モー 
ド か ら 文 字 入 力 モ ー ド へ は いる に は ,。 数 値 入 力 モ ー ド か ら ^,” を 入力 し ます . 各 モ ー ド か ら 抜 け 
る に は ESC キー を 入力 し ます 。 

DEDIT の 操作 は 10 キー と カー ソル キー を 主 に 使用 し ます ( 表 6.2)、. 
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メイ シン モ セード 










ドラ イブ を 1 つ 進 め る (A:B:) 





ドラ イブ を 1 つつ 戻す (B: 一 A:) 
100 だ け 前 の セク タ の 内 容 を 表示 する (LSN 一 100) 
10 だ け 先 の セク タ の 内 容 を 表示 する (LSN+10) 
10 だ け 前 の セク タ の 内 容 を 表示 する (LSN10) 
1 つ 先 の セク タ の 内 容 を 表示 する (LSN+1) 
1 つ 前 の セク タ の 内 容 を 表示 する (LSN 一 1) 
数 値 入力 モー ド に 入る 
1 つの セク タ に お いて 次 の 256 バイ ト を 表示 する 
1 つの セク タ に お いて 前 の 256 バイ ト を 表示 する 


くさ 了 


0, ESC ) 


0 一 9, A 一 F 入力 デー タ (16 進数 ) 
カー ソル の 移動 

文字 入力 モー ド に は いる 
メデ イジ シ モー ド に 抜け る 


文字 入力 モー ド 


注意 : 文字 入力 モー ド で , デー タ と し て 入力 で きる 文字 は , キャ ラク タコ ー ド に お いて , $20-~$7F, $AO 
て $DF の 半角 文字 の み で ある . 



















ーー1 


m 
の 
〇 


表 選 . 〇 DEDIT の 操作 方法 


ここ で いう LSN と は Logical Sector Number の 略 で 。 論理 セク タ 番 号 と いい ます . ディ スク 
上 の 物理 的 な フォ ー マ ッ ト で いう と , トラ ッ ク 0。 サ イド 0。 セ クタ 1 より 論理 セク タ 番 号 と し て 
0 か ら 順 に 与え を られ ます ( 図 6.2). 

DEDIT は 現在 の ドラ イブ や セク タタ の 位置 か ら の オフ セッ ト を 指定 する こと で , 目的 の ドラ イ 
プ や セク タタ を 選択 し ます 。 

まだ た, Human68k の 2HD フ ロッ ピー ディ スク の 標準 の フォ ー マ ッ ト は 1 セクタ 1.024 バイ ト 
で す が , この 1 セク タ の ダン プリ スト を 1 画面 に 表示 する こと は で き な い の で ,。 256 バイ ト ご と に 
4 分割 し て 表示 し て いま す . 1 セク 夕 内 の 表示 する 部 分 を 移動 する コマ ンド は ヾ .” と ヾ ,? で す .。 

数 値 入力 モー ド と 文字 入力 モー ド に お いて 。, エ ディ ッ ト す る 部 分 に は カー ソル が 表示 され ます . 
この カー ソル は , 16 進 ゲ ンプ と キャ ラク タダ ンプ の 2 つの 部 分 に 現れ ます が , 黄色 の カー ソル の 
ほう か 入力 可能 な モー ド で す . つま り 。, 16 進 ダ ンプ の ほう に 黄色 の カー ソル が あれ ば 16 進数 で 入 
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| | 内 の 番号 が 論理 セク タ 番 号 (LSN) 


図 B. 己 論理 セク タ 番 号 の 割り ふり (どら HD の 場合 ) 


力 で きま すし 。 キャ ラク タダ ング デ の ほう に あれ ば キャ ラク ダダ タ を その まま 入力 で きま す 、 

また 。 画面 に 表示 され て いる 内 容 を 変更 する だ け で は ,。 メモ リ 上 の バッ ファ を 書き 換え て いる 
だ け に すぎ ず ,。 ディ スク に 変更 結果 を 書き 込む に は , 数 値 入 力 モー ド で “W” コマ ンド を 使用 し 
な けれ ば な り ま せん . 

な お 。 不当 な ドラ イブ や セク タ を 選択 する と シス テム エラ ー が 発生 する こと が ある の で 注意 し 
て くだ さい ゝ 。 


リス ト . | ティ スク エディ タ 





CoO 69 9 2 9 5 9 も 5 ho もう CO PO ーー デー ーー デー デー デー ニー ーー 
ーー で cooo- コ の mm な coS ら S 憲 Co- コ OO の な の いい ー 忌 どど ココ の の さか CS 一 


8 が 








・ Char data(1024) で PC すす セク タ の 内 容 を 格納 する た め の バ ッ フ ァ 
・ Int end om 終了 し た か どう か を 示す フラ グ 
HNS MY。 RNN。 DD で で の 〇 drv は ドラ イブ 番号 , Isn は 論理 セク タ 番 号 , no は セク タ 中 の 表示 部 分 を 示す 番号 
人 人 ESS x,y は , 現在 注目 し て いる , 1 つの デー タ の 位置 を 指し 示す 
int ch 250 入力 され た キー コー ド が 代入 され る 
str commandl, command2 
/ ネ 
Commandl = "-+986532" 
command2 = "419." + ォ chr$(&H1B) …… IESC| キー の コー ド 
1HJMMMMMPSEEE 
・ jinitscr() ) 
・ locate 84, 6 : print "Main" ee 
・ read(drv, lsn) : ch = dump(no, -1) | 
・ while endflag = 9 コマ ンド ・ パ ー サ ー の ルー プ 
if instr(1, command1, chr$(ch)) <> 9 then 【 
switch ch 
C8Se - ・drv=drvy-』 
lsn = 
break ドラ イブ の 移動 
CaSe +′ : drvy = drv + 
lsn = 
break 
case 9'′: lsn = lsn + 1W 
break 
case 8 : lsn = lsn - 1 久 
break 
case 6′: lsn = lsn + 19 
break 


case 5′: lsn = lsn - 19 2 
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S う の? break 

KK が case 3 : lsn = lsn + ] 

34: break 

5: case 2 : lsn = lsn - 1 

35・ break 

は endswitch 

38: no = 

39: read(drv, lsn) : ch = dump(no, -1) 
4: if ch <> 9 then continue 


41:  } else if instr(1, command2, chr$(ch)) <> 9 then { 
42: switch ch 


43: case 4” : edit(drv, lsn, no) oo エ デ ッ トモ ー ド に 入る 

44: ch = 

45: locate 84, 6 : print "Main" 

46: break 

47: case 1 : loeate 090 oo LSN を 直接 指定 する 

48: input 「LSN = "jlsn 

49: initscr() 

59: locate 84, 6 : print "Main" 

51: read(drv, lsn) : ch = dump(no, -1) 

92 break 

1 caSe .。 : no EnO0 Tl oo セク タ 中 の 表示 部 分 を 1 つ 先 に 進め る 

54: ifno=4thenno =9: lsn = lsn + 1 : read(drv, lsn 
) 

55: ch = dump(no, -1) 

55: break 

57・ CaSe 90 hnO = HO - ] DIWheI85983 の 2 セク タ 中 の 表示 部 分 を 1 つ 前 に 戻す 

58: ifno = -1 thenno = 3 : Isn = lsn - 1 : read(drv, ls 
n) 

59: ch = dump(no, -1) 

69: break 

61: case 9 : endflag = -1 : ch = : break | 引 

62: case &HIB: endflag =-1 : ch =9: break | 

63: endswitch 

64: if ch <> 9 then continue 

65: )} 

66: Ch = inkey() YY エス イア 拡張 外部 関数 .。 リア ル タ イ ムキ ー 入 力 


67: endwhile 
68: locate , 19 


69: end 

79: /* 

7 沿 財 日 MDB の e) 画面 の 初期 化 

72: 。 ClS 

73: 。 print「" + +] +2 +3 +4 +5 +6 +7 +8 +9 +a +b +c +d +e +f : 1234 
56789abcdef” 


愉 locate 77, 
75: print "DRV 
76: locate 77, 
77・ 。 print 「LSN 
78・: locate 77, 5 
79: print "MODE =" 
89: locate 9, 2 

61: for 1 ミ to 15 


1 CO ピッ ー 


82: print hexa$(1」 2 の)57 用 rr 拡張 外部 関数 , i の 16 進数 表現 の 下位 2 桁 を 表示 
83: locate 54, csrlin 

84: DFN も で 

85: next 

86: endfunc 

87: /* 

88: func read(drv, lsn) …………… セク タ の 内 容 の 読込 み 

89: devi(drv, lsn, data)……… 拡張 外部 関数 , drv( ドラ イブ 番号 ) と lsn( 論理 セク タ 番 号 ) で 
9 : locate 84, 1 指定 され た と ころ か ら 配 列 data 読 込む 

91: print drvi“" ー 


92・ locate 84, 3 
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ヤレ レシ 5 サシ リッ ヨ 685855 セ トト トド ド IB ド B ド Bb シ b シ た め ポ め ポ ド ん ヘ ポ pb セ モモ t& モ B《$ ト b ら b ド *b ャ シシ トニ シシ トド ポ pu ニニ ヘマ 一 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
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93: print lsnj" 
94 : locate 83, 4 


95: print "&h"ihex$(lsn)i" の 

96: endfunc 

97: /* 

98: func jint dump(no,」 fg) | 16 進 ゲン プリ スト と キャ ラク タ ・ ダ ンプ リス ト の 表示 
99: int j, 』 

199: jifno<or 3<no then return 

191: for i=no*16tono*16+ 15 

192: | inkey( ) 2 リア ル タ イ ムキ ーー 入力 

193: if flg and (jinstr(1, "-+9865321.,", chr$(j)) <> 9) then return(Jj) 
194 : locate 9, 2 + ji mod 16 

195: print hex$(no): 

196・: locate 6, 2 + i mod 16 

197: for」=i*16toix*16+ 15 

198: print hexa$(data(J)」 2 の) mm data(j) の 16 進 表現 の 下位 2 桁 を 表示 (16 進 ダン プ ) 
199: next 

119: locate 56, 2 + j mod 16 

111: for j」=i*16toi*15+15 

人 if ispr(data(j)) then { 

113: print chr$(data(j)): キャ ラク タ ・ ダ ンプ の 爽 示 

114: ) else { 

115: NRPENE  。 

116: 

生 り next 

118: next 


119: return(9) 

129: endfunc 

1 誰 0 /5 

122: func edit(drv, lsn。 no) 読込 ん だ セク タ の 内 容 の エディ ッ ト 
123: jint 1 

124: int ch, dat 

125: int endflag 

126: str datas 

IPY ま locate 84, 6 : print "Edit" 

128: locate 79, 7 : print” (数 値 入力 ) “ 

129: datas = "123456789Aa” + chr$(12) + "Bb/Cc*Dd-EerFf=" 
139: endflag = 

131: while endflag = ! 

132: putdat(no, x, y, 19) 


133: putch(no, X, yY, 9) 

134: curflag = not curflag 

135: ch ニ inkey() te リア ル タ イ ムキ ー 入 力 

136: | = instr(1, datas, chr$(ch)) 

137: if < iand i<29then { 

138: if i < 11 then 【 | 

139: dat = i - 1 

149: ) else { 

141: dat = (ji - 11) / 3 + 19 

142: ) 

143: 1 =no*256+y*16+x/2 バッ ファ の 内 容 の 変更 

144: if x mod 2=9then 【 

145: data(i) = dat * 16 + data(i) mod 16 

146: ) else 【 

147: data(i) = data(i) / 16 * 16 + dat 

148: ) 

149: putdat(no, x, y, 3) : putch(no,。 xy 3) TI ダン プリ スト の 更新 

150: ※= ニ X+ ィ 1 

151: if x =32theny=(y+1) mod 16 : x=9 

152: ) else if 'w =chor "W =chthen 【 

153: locate 9, 19 

154: print "この セク ター を 書き 込ん で 大 丈夫 で すか ? (yes = RET/no = 5 
PACE)” 

155: repeat 


きり 
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156: 
157: 
158: 
159: 
169: 


161: 
162: 
163: 


164: 
165: 
166: 
167: 
168: 
169: 
170: 
7 は: 
25 
1795 
174: 
1 75: 
176: 
7 3 
176: 
179・ 
180: 
181: 
182: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 
199: 
191: 
2: 
193: 
194: 
195: 
196: 
1 が 
198・ 
199: 
299: 
29]: 
202: 
293: 
24: 
205: 
296: 
297: 
208: 
209: 
210: 
者 
の 125 
219: 
4 
215: 
6 けが 
が 7 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ズ トク ヘ 《 ヘ 《 ク 《 ク nmwWm| プ | WW!Wt〔t〔{ ヶ や ヶ {〔 較 


| 回 inkey() て] リア ル タ イ ムキ ーー 入力 
if j= 13 then devo(drvy, lsn, data) ………… 拡張 外部 関数 , drv( ドラ イブ ) と 
until ji <> MM Isn( 論理 セク タ 番 号 ) で 指定 され 
locate , 19 た と ころ に , 配列 data の 内 容 を 
pTint “ 書き 込む 
ch = 
) else 5 
IT &HIB <= ch and ch <= &HIF then putdat(no, x, y, 3) : putch(no 
の 
Switch ch 
CaSe &HIB : endflaeg = -1 : break "mo エディ ッ ト モ ー ド 終了 
case &HIC : x = (x+ 1) mod 32 : break 」 
case &HID :x=(x -1+32) mod 32 : break | 
case &HIE : y = (y - 1 + 16) mod 16 : break | アー ノル 移動 
case &HIF : y = (y + 1) mod 16 : break 」 
CaSe ま 9 kana(no) キャ ラク タス 入力 
locate 79, 7 : print " (数値 入 力 ) 
break 
endswitch 
endwhile 
locate 79, 7 : print " の 
endfunc 
/* 
func ispr(eh) ……"……… 表示 可能 な キャ ラク タ か どう か の 判別 
if &H29 <= ch and ch <= &H7F then return(-1 ) 
if &HA <= ch and ch <= &HDF then return(-1) 
return() 
/ 
func putdat(no, x, y,」 col) oo 1 つの デー タ の 16 進 表示 (上 位 ま た は 下位 1 桁 の み ) 
Int j 
locate 65+(x /2)* 3+ (x mod 2), y+ 2 
color col 
1 = data(no * 256+ y * 16+x / 2) 
if x mod 2 =then { 
pFit hexa$《] / 16、1)? ーー ! の 16 進 表現 の 上 位 1 桁 の 表示 
) else { 
print right$(hexa$(i 2.1) … i の 16 進 表現 の 下位 1 桁 の 表示 
color 3 
endfunc 
/*※ 
fun6 uteh(DO。X。y。 601) “ジマ 1 つの デー タ の キャ ラク タ 表 示 
Int j 
locate 56+x/2,.y+2 
color col 
1 =data(no * 256+y*16+x/2) 
if jspr(i) then { 
pFint chr$(i): OSORCSkrs 表示 可能 な 文字 は その まま 表示 
) else { 
pFint ee で 表示 で き な い 文字 は ピリ オド を 表示 
) 
color 3 
endfunc 
/※ 
func kana(no) ……( ぴ (il キャ ラク タ で エディ ッ ト す る 
int ji 
int ch, dat 
int endflag 


locate 79, 7 : print ” (文字 入力 ) ” 
% ラ 放 ナ 2 来 あ 

endflag = 

while endflag = 


ーーーーーーーーーーーーーーーーーーーーーーーー 一 ドー ニー トド トド ニニ ニ ト トト トド ポ ド トト セト トト トト p も も ーー フ || ー ろ 


ラチ も 2 


216: 
6 
229: 
の の 1 
222: 
223: 
224 : 
225・ 
226: 
定本 
228: 
229: 
230: 
2 
の 0 なの ・ 
PKK 信 
の 24・ 
の D: 
236: 
人 が 
238・ 
239: 
240: 
4 の 
242: 
243: 
244: 
245: 
246: 
Z47・ 
248: 


6.2 X-BASIC の 拡張 


putdat2(no, x, y, 9) 


putch(no, x, y, 


19) 


curflag = not curflag 


ch = inkey() … 


ERR リア ル タ イ ムキ ー 入 力 


if ch <> then { 
putdat2(no, x, y, 3) 


putch(no, x, y, 3) 
switch ch 
case &HIB : endflag = -1 : break 0 oo キャ ラク タモ ー ド の 終了 
case &HIC : x = に + の ) mod 32 : 1 
case &HID : x = (x - 2 + 32) mod 32 : break 
case &HIE : = (y - 1 + 16) mod 16 : break に 
case &HIF :y=(y+ 1) mod 16 : break 
default : od *x 256+y* 16+x/2) = Ch … の 0 の oo バッ ファ の 内 容 の 更新 
putdat2(no, x, y, 3) : putch(no,」 xy 3) … の iii 表示 内 容 の 更新 
和 o 潜 
ifx=32theny=(y+1)mod 16 : x = 
break 
endswitch 
endwhile 
locate 79, 7 : print “ 
endfunc 
か 
func putdat2(no, xy, co1) …0… の (li 1 つの デー タ の 16 進 表示 (2 桁 ) 
locate 6+ (x /2)* 3,.y+2 
color col 
print hexa$(data(no x 256+y*16+x/ 2 29) …0…ililitit 16 進 表 現 の 下位 2 桁 を 表示 
color 3 
endfunc 
/* 
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6 草 周辺 の ソフ トウ ェ ア 


B. つ パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


ソフ トウ ェ ア を 手 に 入れ る 手段 と し て , 見 逃し て は な ら な い の は , パブ リッ ク ド メ イン ・ ソ フト 
ウェ ア (PDS) と 呼ば れる も の で す 。 すでに 。 た くさ ん の PDS を 利用 し て いる 方 も ある と 思い ま 
す が ,。 こ こ で は , PDS の 定義 や , PDS を 入手 する 際 の 注意 に つい て , あらた め て 解 計 す る こと に 
し まし よう 。 


6. コ d.1 PDS と は 


PDS と は , Public Domain Software の 略 で 。「 著作 権 の 消滅 し た ソフ トウ ェ ア 」 と 訳せ ます . 
つま り PDS は 。 そ の ソフ トウ ェ ア を 作成 し た 人 が 著作 権 を 放棄 し , 営利 目的 で な けれ ば , 誰 で も 
無 代 で 使 る と と お 許し た ツ フ トウェア と ゆえ まず す 。 

し か し 。 実際 に は この 定義 に 当て は ま ら な いも の も あり ます 。 た と えば 。 ブロ グラ ム 作 成 者 が 
完全 に は 著作 権 を 放棄 し て お ら ず , プ ログ ラム を 改造 する こと を 禁じ て いる 場合 や , PDS を 配給 
し て いる 組織 を 維持 する た め に 手数 料 を 支払 わな けれ ば な ら な い 場 合 が あり ます 


5.3. 己 PDS の 入手 万 法 

PDS を 入手 する た め に は , パソ コン 通信 に 参加 する の が 一 般 的 で す . パソ コン 通信 は , 一 般 の 
電話 回 線 を 利用 し て , ホス ト 局 と パソ コン を 接続 し , メッ セー ジ な どの 書込み , 会 員 間 の 電子 メー 
ル の 交換 と いっ た サー ビス を 行っ て お り , 有名 な も の で は PC-VAN (日 本 電気 ),。 アス キー ネッ 
ト (アス キー) な どの 企業 が 行っ て いる も の か ら , パソ コン クラ ブ を 中 心 と し た 個人 が 運営 する 
も の な ど , 全国 に は 500 と も 1.000 と も いわ れる 数 の ホス ト 局 が 点 在 し ます . し か し , どの ホス ト 
局 で も PDS が ある わけ で は あり ませ ん の で , 自分 の 目的 に よっ て 選択 する 必要 が あり ます . 

こと で は 。 XX68000 エー ザー ズクラブ ^PEKIN を 例 と し て 紹介 する こと に し まし ょ う , PEKIN 
NET に は 300 人 を 超え る メン バー が お り , 電子 掲示 板 に は , PDS 関連 の 情報 の ほか , 音楽 , ゲー 
ム な ど ホ ビー を 中 心 と し た 一 般 的 な 情報 も 書き 込ま れ て いま す . 

な お 。 1988 年 6 月 下旬 頃 の PEKIN NET に つい て 書い て あり ます の で , 利用 で きる PDS の 種 
類 , 内 容 な ど , 若干 異な る 場合 も あり ます の で 注意 し て くだ さい . 


SS デム と ター ナル ルリ ゾ ソ プ ト 
パソ コン 通信 を 始め る た め に は ,。 パソ コン 本 体 の ほか に モデム ” と 呼ば れる ハー ドウ ェ ア を 
用 意 し な けれ ば な り ま せん . 
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6.93 7 パブ リック ドメイン < ツ フ ドウ ツェ ア 


モデ ム と は 。 コン ピュ ー タ と 電話 回 線 と を つなぐ ハー ドウ ェ ア で す 。 パ ソコ ン か ら の 出力 ( デ 
ジタル ) を 電話 回 線 で 伝え を る こと の で きる 信号 (アナ ログ ) に 変換 し 。 ある い は 相手 側 か ら 送 っ 
て きた 信号 (アナ ログ ) を パソ コン の 読み 取れ る 信号 (デジ タル ) に 変換 する た め の も の で す . 

モデ ム を 選ぶ 際 に は 。 通信 速度 を 調べ まし ょ う 。. 300bps。1200bps,。2400bps な どい くつ か の も 
の が あり ます が 。PEKIN NET を は じ め 多 く の ホ スト 局 で は , 1200bps の モデ ム で あれ ば 十分 で 
すず 

また , 多く の モデ ム は ,。 オー ト ダ イヤ ル な どの 制御 コマ ンド を 受け つけ る こと が で きる イン テ 
リジェ ント タイ プ が ほとん ど で す 。 この 制御 コマ ンド に も いく つか の 種類 が あり ます . 現在 最も 
一 般 的 で 使い や すい と 思わ れる の は “ヘイズ AT コマ ンド ” と 呼ば れる も の で す . 

モデ ム を 用 意 で きた ら 。 それ を 動か す た め の ソフ トウ ェ ア (ター ミナ ル ソ フ ト ) を 用 意 し ます . 
ター ミナ ル ソ フ ト は 。 キー ボー ド か ら 入 力 さ れ た デー タ を RS-232C を 通し て モデ ム に 送信 し た 
り 。 モデ ム か ら の デー タ を 受け 取っ た りす る た め の ソ フト ウェ ア で す 。 基本 的 に は 。 これ だ け で 
きれ ば よい わけ で す が 。 使う に あたっ て は 。 ダ ウン ロー ド (ログ ) 機能 と アッ プロ ー ド (オー ト 
タイ プ ブ ) 機 能 を 備 を て いな いと 困る で し ょ う 。 ダ ウン ロー ド と は , 受信 し た デー タ を その まま ディ 
スク に 保存 する こと で , 逆 に , アッ プロ ー ド 機能 は ディ スク に 保存 され て いる 内 容 を 送信 する も 
の "や す 。 

ここ で は 。C Compiler PRO-68k に 付属 し て いる TERM. と いう ター ミナ ル ソ フ ト を 利用 す 
る こと に し ます . オー ト タ イ プ 機 能 は あり ませ ん が ,。 ログ を と る 機能 は あり ます の で 。 PEKIN 
NET か ら PDS の ター ミナ ル ソ フ ト を 入手 すれ ば よい で し ょ う 。 


65.3.4 PDS を ダウ ン ロ ー ド する まで 


ここ で は , ター ミナ ル ソ フ ト に TERM.X。 また ,。 モデ ム は アイ ワ の PV-A1200 (1200bps。 へ 
イズ AT コマ ンド 準拠 ) を 使う こと に し ます . 

まず , 電話 回 線 と モデ ム と X68000 を 接続 し て くだ さい . 基本 的 な 接続 図 は 図 6.3 に 示し た と お 
り です. 普通 の モデ ム は モジ ュ ラ ー ジ ャ ッ ク と 呼ば れる コネ クタ で 電話 回 線 と 接続 する の で 。 電 
話 機 が ロー ゼット に よっ て 接続 きれ て いる な ら 。 モジ ュ ラ ー ジ ャ ッ ク の 取り つけ 工事 を 電話 局 に 
依頼 し な けれ ば な り ま せん . 

ッッ ーー ドウ ェ ア の セッ ティ ング が 終了 したら,。 次 は ソ プ ト ウェ ア で す 。 ま す 、 モ デム や ボス ト 局 
の 仕様 に 合わ せ て ,。 RS-232C の 通信 方 式 を SWITCH コマ ンド を 用 いて 設定 し ます . た と えば 
PEKIN NET の 場合 に は , 次 の よう に オプ ショ ン を 指定 し て 実行 し ます . 


A> SWITCH _R ニ 1200 B8 PN S1 XON 
次 は 。 TERM.X を 起動 し ます . コマ ンド の 後に ダウ ン ロ ー ド し た 結果 を 書き 込む せ フ ァイル 名 を 


指定 し て くだ さい . 
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TEL 側 
屋内 の 電話 回 線 


EE 1 
| 屋外 の 
ーー ノレ ! 公 箇 電 話 回 線 
X68000 モデ ム | 
Te コ 了 


図 B. コ モデ ム , 電話 回 線 、 パソ コン の 接続 


A> TERM LOGFILE 


TERM.X は , 通信 中 で も F・8 キー で , ファ イル に デー タ を 書き 込む か どう か を 切り 換え る こと 
が で きま す の で ,。 必要 な 部 分 だ け ロ グ を と る こと も で きま す . 

TERM.X が 正常 に 実行 きれ , モデ ム が 正常 に 動作 し て いれ ば , キー ボー ド か ら 入 力 さ れ た 文字 
が その まま 画面 に 表示 され る は ず で す . その 状態 で 次 に 示す 文字 列 を キー ボー ド よ り 入 力 し て リ 
ター ッッ キー を 押し て くだ きい 3。 


トー ン (プッ シュ ホン ) 回 線 の 場合 : ATDT034476182 
バルス (ダイ ヤル ) 回 線 の 場合 ・ ATDP034476182 


この コマ ンド は , 指定 され た 電話 番号 で 電話 を か ける こと を 意味 し ます . 電話 機 を 用 いて 手動 
で 電話 を か ける の と 同じ こと で す 。 な お “~A/” と 入力 する と ,。 前 回 か けた と ころ に も う 1 回 電話 
を か け な お し ます 。 「 

^AT "は モデ ム に 対し て 送信 する 制御 コマ ンド の 最初 に か な ら ず つけ る 文字 列 。 び DT^ と ヾ DP? 
は それ ぞ れ プッ シュ ホン 回 線 用 の トー ン 信 号 と ダイ ヤル 回 線 用 の パル ス 信 号 を 出力 する と いう 意 
味 の 文字 列 で , その 後 の 数 字 の 文字 列 は PEKIN NET の 電話 番号 で す . 

回 線 が つなが る と 画面 表示 は “CONNECT"。 話 し 中 な ど で 回 線 が つなが ら な い 場 合 は “NO 
CARKRIER" と 表示 され ます . CONNECT の 文字 が 表示 され た ら 。 リタ ー ン キー を 何 回 か 押し ま 
す 。 す る と 。 PEKIN NET か ら の メッ セー ジ が 表示 きれ ,。 ユー ザーID の 入力 待ち に な り ま す 。 こ 
こ で も 指示 どおり に ユー ザーID と パス ワー ド を 入力 し ます . この 例 で は ゲス ト で ログ イン し ます 
(画面 6.1). 
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6.3 パプ リッ ク ド メ イン ・ ソ フト ウェ ア 


Humarn5Sk for X58898 uersion 1. 吹 
Copuright 1987 SHRFP/Hudson 


PRINTER DRIMER for X68999 uersion 1.8 
PRN/LPT の ファ イル 名 で プリ 2 持 負 字 可 能 で す 。 バ パッ ファ は 256K バ イ ト 使用 し ます 
XESMMB terminal M1.M TERM .X を 起動 


TVP54476182 の 時 電話 を か ける コマ ンド ( ダイ ヤル 回 線 の 場合 ) 


ボ 回 線 が 接線 され た 
回 OO 


フ | 
し | PEKIN NET か ら 送 られ て 


]/ BBS 22 ト J1S が エト "7 ヨコ 旭 9 デ ナ 人 ト 239 アッ | きた メッ セー ジ 
"トノ 夫 ID:GUESTJ の 3(09-2 ボ ) "LOGIN 妨 2997 | 


User ID=GUESTJ 
Pa ssuord= 
Your name=FOO 


last login=68/M5/29 5:MM:MM 
Perment Erupl Knock and Intercommunicate Netuork 
北 京 
X58000 BBS 代表 (93)44?7-6182 2 4 時 間 運 転 


Host FM-11BBS 3 回 線 1299bps Flou 有 : modem MD129ME 
大 阪 Nasnno Netuork の ソフ トウ ェ ア で 秒 働 し て いま す 。 





画面 5B.1 PEKIN NET へ の ログ イン 


ログ イン で きる と , シス テム 管理 者 か ら の メッ セー ジ が 画面 に 表示 され ます . この メッ セー ジ 
は , これ か ら BBS な ど を アク セス する ユー ザー に 対す る 注意 事項 な ど な の で , ダウ ン ロ ー ド な ど 
を 行う まえ に よく 読ん で お く 必 要 が あり ます . 

さて , 最初 の メッ セー ジ が 一 通り 表示 され る と , 


NET : 


と いう プロ ンプ ト が 表示 され ます . この 状態 で ?” を 入力 する と,。 使用 で きる コマ ンド 一 覧 が 
表示 きれ ます 。 ま た 。 各 コマ ンド の 後に ~?“ と いう パラ メー タダ タ を つけ る と 。 その コマ ンド の 便 
用 法 が 表示 され ます . 

で 信 。 PDS の つも を ダウ シロ ー ド を し いて み ま し ょ う 。 まず “NET -~ と いう プロ ング ト 志 表 
示さ れ て いる 状態 で BBS" コマ ンド を 実行 し ます 。 す る と サ プ コ マン ド が 表示 され る の で 。 そ 
の な か の ヾ t : ボー ド 一 覧 ” と いう コマ ンド を 実行 する と ,。 アク セス で きる ボー ド の 名 前 が 表示 さ 
れ ま す (画面 6.2)。 この な か に “PDS” と いう ボー ド が ある の で 。 これ を 見 て み ま し ょ う 
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6 章 周辺 の ソフ トウ ェ ア 


NET:BBS 
BBS>t: ポー ドー s: 選 択 条 件 設定 9: デ ィ レ クト リ eend 


seleclt= 
PEKIN BORRD 一 覧 


… 三 角 口 (RERD ONLY) 必 ず 読 ん で 下さ い ! 
を 千 伝 ・ 売 綱 情 報 


質問 ・ 解 谷 ボ ー ド 


マン ガ ・ 映 画 ・SF 
・ メッ ンタ 

…PDS 計 論 7 イプ リ > ドメイン 
音楽 ・ 絵 等 各種 デー タ DISK-PEKINW 押 g 


‥… あ きら の 部 屋 RBTERWM・・ 
BBS>t: ボー ドー 覧 si 選択 条件 設定 9: デ ィ レ クト リ e:end 


select 


…・ フ リー トー ク 

・ た め に な る 68K 情 幸 
・… ア イド ル 情 報 局 
音楽 - 般 


*HBTerm maintenance 





画面 . 〇 ボー ド の 一 覧 


*select=* と 表示 され て いる 状態 で 。^D*” と 入力 し て リタ ー ン キー を 押し ます . する と ボー ド 
名 を 聞い て くる の で PDS” と 入力 し て リタ ー ン キー を 押す と , ボー ド 内 の ファ イル 一 覧 が 表示 
され ます (画面 6.3). 


BBS>L: ms s: 選 択 条件 設定 : デ ィ レ クト リ eiend 
SG ect ニ 
ボー ド 名 =PDS 
か 在 フ イル 沙 こ 262 最大 バイ | 数 =9999KB 現在 
ノ ル き * 1 
[ ニニ 2f-2 送信 日 付 形式 BE 示 タ イト ル 


88/5/Z6 ら _ J 


バイ ト 数 =4367KB 


1957 (po U1 . 9 時 すく 
17102 カス ケー ド ・ 
77467 42 と laf1 の 机 他 を 人 63660 で 


| DU 1.5(bu 本 UP) 
12183 TRON (GRWE ISH8PRC 
19928 Ci 8 小僧 . 


悪 
ーHi 


寺 宗 敵 "dJ 
ae 
〇 箇 コ 


こい 
の 
〇 ) 


wt 


7788 X68K イサ 6 DIC コソ バー タ 
07 人 BUG 「IX) 

Sta 記 2 (jsh&arc) 
21969 本 者 和 小 人 


う akira's voice dats 前 の と 同じ 


で 


28/6/29 
88/ 人 65/18 


C) 


88/5/18 
68/M5/18 
8g8/Mb/18 
8 
8 


eveve 二 の の po いざ て が) きら ざき 装 


へ ハハ へ 写っ コ っ て 9CehYes コ て 


98706/1 


ーー ニー と ニー ニー ニー ニー ここ ここ の と 
*ーー マ で 一 一 で ーーー で と ーー で ーー で ーーー マ テーー マ で ーーー で ーーー で ーーー で ーー パッ ーーー ーー ご ャ ーーー ーー で ーー で 


上 
暫 
P 
BI 
BI 
TO 
み 
み 
み 


(まく て の て の CO つて の つて つて の て の てく の て の て の て の つて の て の くう て の て の rm て の 


ー ト 


RTN>Break CTRL 二 C で と め 
BBS>(b/g/t/Ln/c/a/u/s/m/e/g/?) No. 


48556 akira uer 1.5M 

ZZ589 ファ イル 1 ィ 9- 有 ーー ツ ョ アッ グフ 
1655 bootmenu(ish & arc) 
1817 exmake.x(jish & arc) 
4992 fon.x(ish & arc) 


| し 1 目 UU 目 CH 上 S1| 目 SU PrnUff 軒 WrtUn 胃 Lommand 四 End | 


画面 5. コ 
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ァイル 一 覧 


6.3 パブ リック ドメイン ・ ソ フト ウェ ア 


さて 。 図 6.5 の な か か ら 1 番 の ファ イル を 選ん で ダウ ン ロ ー ド し て み ま す . TERM.X が ログ を 
と る 状態 に な っ て いる こと を 確認 し て , 1 を 入力 し ます . する と BBS に 掲載 され て いる 1 番 の 
ファ イル の 内 容 が 画面 に 表示 され ます 。 一 見 し た と ころ ,。 無 意 味 な 文字 が 画面 いっ ぱい に 表示 さ 
れ て いる よう に 見 えま す が 。 こ れ が アッ プロ ー ド され て いる PDS の 形 な の で す ( 画 面 6.4). 通常 
は 。 バイ ナリ デー タ を 書 込 む こと が で き な い の で 。 この よう に し て テキ スト デー タ と し て 書き 込 
ん で ある わけ で す 。 ホス ト 局 に よっ て は ,。 バイ ナリ デー タ の まま 書き 込み の で きる と ころ も あり 
上 


C>TYPE LOGFILE 
BBS>(b/g/t/tn/c/a/M/s/m/e/q/?2) No.=13 ジ 
foo. 88/96/15 S-JIS 11365 sanple program 


6 foo.arc for Human58K ( use shift_jis ish ) [ 146 lines 〕 Human58 uer1.11 >>> | 
gN&HLUH:%Hu4j7LH%&) 「c ミ ) NUXoFuHHHHHHHHHHHHHHHHRHHHHHHHHHHRHHHHHHHHHHHHDOd 
HGHIUH を Hu4j7LH を 2) 「c ミ i%H: NL%oFuHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHOd 
oN&HtUH: PU 7tH&& ) 「< ミ !%H: NL し 所 こく 
間 半 T ロ 「x 人 MKLM- イ ォ oR@FP 和 拓 り - し 人 ちっ AA bUR 享 う 
RC ( み 軍 rlDK.12 TI2GRM 8To3y(X 恒 M 
C! 提 0 PA DP 
で 


T[U BE Up 5 
2 は 
1 権 1 が: か [っ に PH1 語 \ ンコ RK: 和 履 儀 1T ヨ LnQ- 


半 ッ カ 6 
上 L ソ 」LG 知 YnE け お で Km ミ RTKz2 オノ 人 0 xD この 部 分 が ISH に 
と 
し Da" n/@K 多 PDaK.H s77 = 有人 MI | より 生成 され た 





1 この 
命 # の 4 二 RBTL DR 「= Eh 晴 og 
| 挫 <2Rs= PR 14 人 8090 

mR 満 支 係 )QA ERct 有 14 き 9 
msJP、 BVGN2(a KE 」@e@⑳NW7D7:kG]PaVgdhL9L 銘 」dh^ ミ "Ma 

pF&9UFXEOE_- 0 生 ( 半 【-oFdF JO 


電 


qY。p メ 1] 」C ェ 謙 2-DPH_) 7 PD er と 02 HL 人 
より りう 2 PVD3 IR 184XZSD り D り 


まさ ロ 胃 3]JYF_D' リ 2 請 | 6 和 
1 MD 「46 ィ 0qB 9 BN 突 Y「t2 失 村 


ーー- †oo.arc (146/14 








BBS>(b/g/t/tn/c/a/w/s/m/e/q/?) No.= 


| Ll 当り 9 5S| 旭 SU 関 題 WID WM MIN WU WEUO 





画面 B.4 PDS を ダウ ン ロ ー ド 


さて 。 最後 まで 表示 し 終わ る と 。 ふ た た び NET : と いう プロ ンプ ト が 表示 され ます 。 これ で , 
いま まで 画面 に 表示 され た 内 容 が ファ イル に 記録 され て いま すか ら , これ で ダウ ン ロ ー ド は 成功 
し た こと に な り ま す . あと は 。 必要 が な けれ ば END, ま た は LOGOFF と いう コマ ンド を 実行 す 
る と 電話 回 線 が 切ら れ , アク セス は 終了 し ます . 


5. コ 3. プロ グラ ム を 実行 する まで 


さて ,。 ダウ ン ロ ー ド の と き に 画面 いっ ぱに 見 えた 無 意 味 そ うな 文字 が , 私 た ちか が 必要 と し て い 
る 部 分 で す 。 これ は 。 使い か た な ど が 書か れん た ドキ ュ メ ント ファ イル , 実行 ファ イル , デー タ な 
ど が 1 つの ファ イル に まとめ て 圧縮 さき され, さら に テキ スト ファ イル に 変換 され て た も の な の で す . 
この よう に する こと で , 手間 を か けず に 。 必要 な ファ イル を 短 時 間 で ダウ ン ロ ー ド する こと が で 
きる わけ で す . 
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6 章 周辺 の ソフ トウ ェ ア 


PEKIN NET で は , ファ イル の 圧縮 と 複数 の ファ イル の 連結 に “ZOO.X” や ARC.X?。 その 
ファ イル を テキ スト 形式 に 変換 する も の と し て “HC6.X” や “ISH.X” と いう プロ グラ ム が 利用 
され て いま す 。 PDS を ダウ ン ロ ー ド し て みよ うと する 方 は 。 ま ず こ れ ら の プロ グラ ム を 手 に 入れ 
な けれ ば な り ま せん . 一 般 的 に は すでに 持っ て いる 人 に コピ ー さ せ て も ら う の が か ん た ん で し ょ 
う 。 も ちろ ん PEKIN NET に も あり ます の で , まず ダウ ン ロ ー ド し て し まう の も いい か も し れ ま 
せん . 
プロ グラ ム の 作者 が アッ プロ ー ド 時 に 使用 し た 方 法 の 送 を た どり な が ら 。 実行 ファ イル 。 ド キュ 

ント ドブ ァイル を 取り だ し ます . 

だ た と えば , ARC 十 ISH で 圧縮 し ,。 テキ スト ファ イル 化 さ れ て いる も の は ,。 ま ず 。ISH で テキ ス 
ト フ ァイル か ら 圧 縮 さ きれ て いる バイ ナリ ファ イル に 変換 し ます . ISH は 。 よけい な テキ スト が 前 
後に 書か れ て いて も 必要 な 部 分 だ け を 判別 し て くれ ます か ら , エディ タ な ど で 不 必要 な 部 分 を 消 
す よ うな 必要 は あり ませ ん . 

こ ARC を 使っ て 圧 結 フ ァイル か ら 通 常 の ファ イル に 戻し て や り ま す 。. 圧縮 を 解く と , 実行 可 
能 フ ァイル や ソー スリ スト , ドキ ュ メ ント な どの 複数 の ファ イル が 現れ ます (画面 6.5). 

この よう に ARC を 使う と , 1 つの 小包 の よう に し て 複数 の ファ イル を 送る こと が で きる の で 非 
常に 便利 で す 。 これ は 通信 を する 場合 以外 で も , 自分 の 作っ た ソー ス フ ァ イル や デー タフ ァイル 
な ど を まとめ て お く 《 場 合 に も 有効 な 方 法 で し ょ う . ファ イル を 復元 で きた ら ,。 あと は ドキ ュ メ ン 
ト フ ァイル を よく 読ん で 。 実行 する だ け で す 。 


CTYPE LOGFILE 
BBS>(b/g/【/tn/c/a/M/s/m/e/q/?) No.=13 

。 13 f6o。 89766715.3-JIS 1165'sanple progra 

CCc foh fec eaw68t (。 NaIDpxiIBNHHHBBHHHHIBHHHBRHHHHHEHRHHHRHRHHHF ニ 


HHgN&HLUH: HU4XotH%2) 「NT」%H:NHHVpxHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH ェ F= 
HHoN&HLUH:HuxXoH%8) Nr, を H:NHHDpxHHHHHHHHHHHT し 


し > 還 

C>ISH LOGFILE /a に LOGFILE 中 の , すべ て の 1SH 変 換 さ れ た ファ イル を と り 出 す 
jsh file conuerter for Human58K Ver1.111 

original idea Bu M.ishizuka(for [人 -DOS) 

SE 1388 - Pekin - (bu Ken+Gigo) 


ed (for "speed up') by Obj.X 
Special 【hanks for Y. oO (Macku) 
く Restore from LOGFILE > 
<< く FOOU.RRKC from [人 -DOS ( use shift_jis ) 88/6/39 12: 9:9 9229 bute >>> 
.HRC : oo Finished。 LOGFILE よ り FOO.ARC が 出力 され た こと が わか る 


FOO0.ARC に 含ま れる ファ イル を すべ て 抽出 する 





画面 B.5 ISH と AHC を 使っ た 実行 可能 ファ イル の 取出 し 
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6.3 パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


6.3.5 PEKIN NET に ある PDS 

ここ で は 。 PEKIN NET に アッ プロ ー ド され て いる PDS の うち 。 インテリ ジェ ント な ター ミ 
ナル ソフ ト や ダウ ン ロ ー ド する 際 に 必要 と な る ソフ ト な どの 一 部 の も の を 紹介 し ます . なお, ネッ 
トワ ー ク に に アップロード きれ る ソフ ブフ トウェア は 非常 に 速い ペー ス で パー ジョ ン ア デップ や デパ バッグ 
が 行わ れる の で , 紹介 し て いる ソフ ト の 仕様 が 変わ っ て いる 場合 も ある の で 注意 し て くだ さい . 

また ,。 ソフ トウ ェ ア の 転載 や 改造 の 際 に は ,。 ドキ ュ メ ント な ど に 記述 され て いる 注意 事項 を 厳 
守 し て くだ さい 。 

な お 。 ここ で 紹介 し て いる PEKIN NET に 掲載 され た プロ グラ ム の 著作 権 は 放棄 され て いま 
せん . 基本 的 に 著作 権 は プロ グラ ム 作 成 者 か PEKIN NET に あり , な か に は 転載 し て は いけ な い 
プロ グラ ム も ある の で に 注意 し て くだ さい . 


田 ター ミナ ル ソ フ ト 

本 章 で 使っ た TERM.X は ダウ ン ロ ー ド が で き て も , アッ プロ ー ド が で き な い な ど , 実際 に ネッ 
トワ ー ク に アク セス する に は ちょ っ と 役不足 で す 。 そこで PEKIN NET に アッ プロ ー ド され て 
ゅ る “ABTerm′ と いう ター ミナ ル ソ フ ト を 使う と よい で し ょ う . 

この ソフ トウ ェ ア は 。 あら か じ め 設 定 さ れ て いる ネッ トワ ー ク を 選ぶ こと に よっ て 。 通信 モー 
ド の 設定 と ダイ ヤル を 自動 的 に 行う こと が で きま す 。 も ちろ ん 。 アップ ロー ド や ダグ ダウンロ ー ド と 
いっ た 機能 もち あり 。 ファ ンク ショ ン キ ー で 選択 する だ け で 行う こと が で きま す . 

また , XMODEM プロ トコ ル と いう バイ ナリ デー タ を 転送 する た め の プ ログ ラム を 内 蔵 し て い 
ます の で ,。XMODEM プロ トコ ル を サポ ー ト し て ぃ いる BBS と な ら 。 パ イナ リ デ ー タ の や り と り が 
で きま す 。 そ し て ユー ザー に と っ て 最も あり が た い の が 。 ソー スプ ブロ グラ ム も つい て いる と いう 
ここ で 及 。 


回 デー ジコ パー 

実行 ファ イル な どの バイ ナリ ファ イル を や り と りす る だ た め に は , ちょ っ と 工夫 が 必要 で す . 1 つ 
は ,。XMODEM プロ トコ ル な ど を 使う 方 法 が あり ます が , も っ と 手軽 に 行う た め に は , バイ ナリ 
ファ イル か ら テ キス ト フ ァイル に 変換 し て や る 必要 が あり ます . 

BBS 上 に は 。 現在 この よう な テキ スト パイ ナリ コン パー タダ と し て 。 HC6 と ISH が あり ます 。 

HC6 は , 8 ピッ ト の デー タ を 6 ピッ ト ず つ に 区 切っ て 。 それ に %30 を 足す こと で , バイ ナリ デー 
タタ か ら $30--$6F で 表 さ れる テキ スト デー タ へ 変換 し ます . 

ISH は , HC6 より も 変換 効率 を 高め た も の で , さら に チェ ッ ク サ ム に よる 誤り 訂正 と , CRC に 
よ あ 強 方 な 二 り 検 由 を 行う と と より ,1 デ ロ ッ ク 当 り 2 行 まで の エラ テラー を 前 目 し で くれ ます 。 で 
すか ら 。 途中 で “文字 ば け ” な ど が あっ て も 完全 に 復元 し て くれ ます . その 上 , 入力 ファ イル 中 
か ら 複 数 の ISH 型式 の ファ イル を 識別 し ます か ら ,。 login か ら logout まで の ログ ファ イル に , 一 
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6 章 周辺 の ソフ トウ ェ ア 
度 に ISH を か ける こと も で きる の で す . 


田 アー カイ バ 

CCompiler PRO-68k に 付属 し て いる AR に よく 似 て いま す が , ZOO も ARC も 和 複数 の ファ イ 
ル を 圧 縮 し た 後に 1 つの ファ イル に まとめ る の で , 実行 ファ イル , ソー ス フ ァ イル , ドキ ュ メ ン 
ト な どの よう に 関連 する ファ イル を まとめ て 保存 し た りす る 場合 に 有効 で す . また , まとめ られ 
た ファ イル の な か か ら ,。 必要 な ファ イル だ け を 抽出 する こと も で きま す . 


アン 
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MS-DOS か ら の ソフ トウ ェ ア 移 机 


X8OOO に は , 過去 の ソフ トウ ェ ア 資 産 と いう も の が まっ た 

く あ り ま せん . より か ん た ん に ソフ トウ ェ ア 資 産 を 増やす に は , ど ご 
うす れ ば よい の で し ょ うか . 是 草 で 紹介 し た PDS を 利用 する こと 
いう の も 1 つの 手 で す . も う 1] つ は , 他 機 種 用 の プロ グラ ム を 移植 
する ここ と が 考え られ ます . プロ グラ ム の ソー スリ スト に 少し 手 を 加 
ー- え て や る だ け で XBB000 上 で 実行 で きる と し た ら , これ ほど ご 楽 

こ ソ フ トウ ェ ア 資 産 を 増やせ る 方 法 は あり ませ ん . 

こ で は , MS- 〇 で 記述 され, MS-DO8 (ver.. 1 1 上 で 
ee ログ ラム を X- ピ へ 移植 する 方 法 に つい て 考え る ご と に の 佳生 

し まし ょ う . Pe 間 還 





を # る 生き : 
と まる 党 ま を 


7.2 移植 上 の 問題 点 


フ . ] 移植 の 可能 性 


これ まで 68000CPU を 採用 し た パソ コン は 少な く 。 も ちろ ん Human68k が 動作 する マシ ン は 
時 無 で す . し か し 。 せめて も の 救い は 。 Human68k が MS-DOS (ver.2.11) を モデ ル に し て 作ら 
れ た と いう こと と ,。 Human68k 上 で 動作 する C じ コン パイ ラ が 存在 し て いる と いう こと で す . 

Human68k と MS-DOS は , ファ イル シス テム や 文字 セッ ト が ほぼ 同じ で , Human68k の DOS 
コー ル と MS-DOS の シス テム コー ル も 似 て いま すか ら , 移植 時 に 問題 に な る DOS の 違い は それ 
ほど 多く あり ませ ん . 

C コ ン パ イラ に 関し て いえ ば , MS-DOS 上 で 動作 する 主要 な じ コ ン パ イラ の 1 つ で ある Mi- 
crosoftC コ ン パ イラ (MS-C) と よく 似 た 言語 仕様 に な っ て いま す 。 双方 と も , ANSI で 進行 し 
て いる 標準 規格 を 取り 込ん で いる の で ,C 言語 の ソー スプ ログ ラム ・ レ ベル で な ら 移 植 は 可能 で あ 
あ どり e9 ます 





フ . の 移植 上 の 問題 上 


X-C と MS-C で 違う 点 と し て あげ られ る の は , 何と いっ て も ター ゲッ ト と な る CPU の 違い で 
す . それ ぞ れ 。X-C は 68000CPU,。 MS-C は 8086〆8088。80186/80188,。80286CPU が ター ゲッ 
ト と な っ て いま す 。 この 2 つの CPU は 開発 し た メー カー まで 違い 。 も ちろ ん マシ ン 語 や アセ ンプ 
リ 言語 で の 互換 性 は まっ た く あ り ま せん . C 言語 で は , CPU の アー キテ クチ ャ に 依存 し た プ ブログ 
ラム が 記述 で きる の で ,。 CPU の 種類 が 違う と いう の は , 移植 時 に 大 き な 影 響 を 及ぼ し ます . 

次 に 違う 点 と し て は , DOS の 違い を あげ る こと が で きま す . す で に 述べ た と お り Human68k と 
MS-DOS(ver.2.11) は よく 似 た DOS な の で , CPU の 違い ほど 深刻 な 問題 で は あり ませ ん . た が だ 
MS-DOS の シス テム コー ル を 使用 し て いる 場合 に は , Human68k の DOS コー ル で 置き 換え な け 
れ ば な り ま せん . 

また ,C コ ン パ イラ の 仕様 の 違い に も 注意 を 払わ な けれ ば な ら な いで し ょ う . 言語 仕様 は X-C 
と MS-C で は それ ほど 違い は あり ませ ん が , ライ ブラ リ が 多少 違っ て いま す . 
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7 草 MS-DOS か ら の ソフ トウ ェ ア 移 植 


Z. つ CPU の 違い 


68000CPU と 86 系 CPU の 決定 的 な 違い は 。 アド レス の 概念 で す . 86 系 CPU で は 。 セグ メン 
ト と オフ セッ ト と いう 2 つの デー タ か ら ア ドレ ス を 求め て いま す . 1 セグ メン ト は ,。 64K バイ ト で 
す が ,。 セグ メン ト を 変え れ ば 1M バイ ト の メモ リ 空 間 を アク セス で きま す 。 し か し ,。 そう し た 操 
作 を 行う 必要 が ある 分 , 実行 速度 が 遅く な っ て し まい ます . また , セグ メン ト と オフ セッ ト の サ 
イズ の 合計 は 16 ビッ ト を 超え ます が , 86 系 CPU は , 16 ビッ ト よ り 大 きい サイ ズ の デー タ を 扱う 
の が 非常 に 苦手 な の で , そこ で も 実行 速度 の 低下 が 起こ り ま す . 

それ に 比べ 68000CPU は , 物理 的 に は 16M バイ ト の メモ リ を 直線 的 に アド レス する こと が で 
き ,。 し か も アド レッ シン グモ ー ド が 豊富 な の で 。86 系 CPU より は る か に か ん た ん に 64K バイ ト 
以上 の デブ ログ ラム や デー クタ を 扱う こと が で きま す 、 





ノア .d.1 プロ グラ ム の 大 き さ の 制限 

8086CPU で は , セグ メン ト と いう や っ か いな 存在 の た め , プロ グラ ム の 大 き さ に 制限 が 生じ ま 
す .。 MS-C に は メモ リモ デル (スモ ー ル 。 ラー ジ , ヒュ ー ジ な ど ) と いう 概念 が あり 。 プロ グラ 
ム の 大 き さ に 合わ せ て 適切 な が メモ リモ デル を ユー ザー 自身 が コン パイ ル 時 に 選択 し な けれ ば な り 
ませ ん . 

X-C で は ,。 コード 部 や デー タ 部 の 大 き さ を 制限 する の は ,。 メ モリ の フリ ー エ リア の 大 きき さだ け 
で ,。 68000CPU の アー キテ クチ ャ に よる 制限 は な く , プ ログ ラム を 読み 込ん で 実行 する の に 必要 な 
メモ リ さ え あ れ ば よい こと に な り ま す . し か し , 次 に 示す よう に XX-C の 処理 系 に よる 制限 が 若干 
あり ます . 


田 ヒー ブ 領 域 の 問題 

malloc 関数 な ど で 使用 する ヒー ズ プ 領 域 は, 標準 で 64K バイ ト だ けし か 用 意 き ほれ な い の で ,。 それ 
以上 に 必要 と する プロ グラ ム は , コン パイ ル 時 の オプ ショ ン ( コ ン パ イラ ドラ イ バ の ンプ h オプ ショ 
ン ) で 信 域 を 確保 し な けれ ば な ら な り ま せん . ちな み に , スタ ッ ク 領 域 も 同様 に コン パイ ル 時 の 
オプ ショ ン (コン パイ ラド ライ バ の ププ s オプ ショ ン ) で 大 き さ を 変更 する こと が で きま す . 


画 自動 変数 の 大 き さ の 問題 

1 つの ブロ ッ ク 内 で 定義 きれ る 自動 変数 の 合計 の 大 き さ が 32K バイ ト 未 満 で な けれ ば な り ま 
せん . 関数 内 で 大 き な 自 動 変数 の 配列 を と っ て いる 場合 は , 外部 変数 に する か スタ ティ ッ ク 変 数 
に する な どの 変更 が 必要 で す . 
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7.3 CPU の 違い 


ア 。 紀 選 パイ ト ガ オー ター 

68000CPU と 86 系 CPU (と いう より は 68 系 と 80 系 ) で は 16 ビッ ト 以 上 の デー タ を メモ リ に 
格納 する と き の デ ー タ の 並び か た が まっ た く 違 いま す . この デー タ の 並び か た に 依存 し た 記述 が 
ある 場合 は 変更 が 必要 で す .。 た と えば 図 7.1 の よう に , 違う 型 の ポイ ンタ の 代入 を 単純 に 行う と 
MS-C と XX-C で 実行 結果 が 違っ て し まい ます . 







s 十 1 


@ ら 8086 
*※pー3412 


@ 68000 
*※p 三 1234 


static char s[2] ニ { 
0x12, 0x34 


の 


) 


short *p 三 &s[O] : 
printf (~*pー め x\n"。 * ネ D) : 






フ .1 6 系 と 0 系 PPU の バイ ト オ ー ダ ー 


ノ .3.3 奇数 アド レス か ら の ワー ドア クセ ス 

86 系 CPU で は 。 奇数 アド レス か ら も ワー ドア クセ ス , つま り 16 ビット 単位 で アク セス する こ 
と が で きま す が 。68000CPU で は アド レス エラ ー が 発生 し て し まい ます . 

た と えば 。char 型 の ポイ ンタ が 指し 示す と ころ か ら int 型 で アク セス する と , アド レス エラ ー 
が 発生 する 場合 が あり ます . 


ノ . コ 3.4 デー タタ イプ の 大 きぐ さ 

C 言語 で は 。int 型 や char 型 と いっ た デー タタ イプ の 大 き さ が 明確 に 定義 S き れ て いま せん . デー 
タタ イプ 同士 の 大 小 な ど は 定義 され て いま す が ,int 型 の 大 き さ が 何 ビ ッ ト で ある か な どの 具体 的 
な 定義 は な され て お ら ず ,CPU や マシ ン に 依存 し て いま す (int 型 の 大 き さ は , ター ゲッ ト の CPU 
に と っ て 一 番 自然 な 大 きき さ に な っ て いる )。 

X-C と MS-C で も int 型 の 大 き さ に 違い が あり ます 。 X-C で は int 型 が 32 ビッ ト で ある の に 
対し て 。MS-C で は 16 ビッ ト で す ( 表 7/.1). 

こ の 場合 。 X-C の ほう が MS-C より int 型 の サイ ズ が 大 きい の で , 移植 時 に 問題 と な る こと は 
少な いと 思わ れ ま す . 
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大 き さ (単位 は バイ ト ) 
デー タタ イプ 
soge (We- 











表 フ .1 各 デ ー タ タイ プ ブ の 大 き さ 


ノ . の D08 の 違い 


Human68k は ,。 MS-DOS (ver.2.11) と いろ いろ な 面 に お いて 類似 し て いま す が 。 ファ イル シ 
ステ ム や ファ ンク ショ ンコ ー ル 。 プロ セス の 扱い な ど に 若干 違い が 見 られ , 移植 する 際 に 問題 に 
な る こと が あり ます . 以下 で は その 違い を 解説 し ます . 








/. イ .]| ファ イル シス テム の 違い 
Human68k は , MS-DOS と 似 て いる と は いっ て も , 相違 点 は や は り 存 在 し ます . ここ で は 。 フ ァ 
イル シス テム に つい て ,。 移植 上 の 問題 点 を あげ て みる こと に し まし ょ う . 


呈 ファ イル 名 に 関す る 違い 

MS-DOS で は , ファ イル 名 は ノー ド CFOO.DOC* と いう ファ イル 名 の 場合 。 “FOOZ が ノー 
ド で “DOC” が 拡張 子 ) が 8 文字 分 , 拡張 子 が 3 文字 分 と いう 構成 に な っ て いま す .。 ファ イル 名 
中 の 英文 字 は 大 文字 し か 許さ れ て いま せん . それ に 対し て Human68k で は ,。 ノー ド の 大 き さ が 拡 
張 さ れ , 18 文字 分 まで , ファ イル 名 中 の 半角 英文 字 は 大 文字 で も 小文字 で も よい こと に な っ て い 
ます . た だ し , ファ イル 名 の 区 別 は MS-DOS と 同じ で ,。 ノード が 半角 8 文字 の み 。 半角 英文 字 は 
大 文字 小文字 が 区 別 さ れ ま せん . つま り ヾ FOOFOOFOO.DOC* と ~EOOFOOFOA.DOC?。 また 。 
foofoofo.doc" は すべ て 同じ ファ イル を 指し て いる も の と みな され て し まい ます . 

し た が っ て , ファ イル 名 に 含ま れる 半角 英文 字 が 。 か な ら ず 大 文字 で ある と 仮定 し て いる プロ 
グラ ム で は , 半角 英文 字 の 小文字 を 大 文字 に 変換 する と いっ た 修正 が 必要 で す . も ちろ ん ディ ス 
ク 内 の ディ レク トリ エン トリ の 構造 も 一 部 異な っ て いる の で , ディ スク か ら セ クタ 単位 で 読み 書 
き し て いる プロ グラ ム に は 注意 が 必要 で す 。 
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7.4 DOS の 違い 


田 ディ スク フォ ー マ ッ ト の 違い 

MS-DOS で は , 記憶 容量 の 違う ディ スク ドラ イブ に 対応 する た め , 複数 の ディ スク フォ ー マ ッ 
ト を サポ ー ト し て いま す が 。 Human68k は 。 X68000 専用 の DOS な の で 。MS-DOS ほど 多く の 
ディ スク フォ ー マ ッ ト を サポ ー ト し て は いま せん . つま り MS-DOS と Human68k と は ディ スク 
フォ ー マ ッ ト に 関し て 完全 な 互換 性 を 持っ て いる わけ で は あり ませ ん . し た が っ て , ディ スク 
フォ ー マ ッ ト に 依存 し た プロ グラ ム は 移植 の 際 に 変更 し な けれ ば な ら な い 場 合 が あり ます . 

な お 。 ディ スク フォ ー マ ッ ト に 関す る 情報 は DPB (Drive Parameter Block) に 格納 され て お 
り ,。 ここ か ら セ クタ や クラ スタ の 大 き さ な ど デ ィ ス ク フ ォ ー マ ッ ト に 関す る 情報 を 得る こと が で 
きま す . し た が っ て 。 プ ログ ラム 中 か ら DOS コー ル を 使用 し て ,。 DPB を 参照 する こと で 複数 の 
ディ スク フォ ー マ ッ ト に 対応 する こと が で きま す .。 


ア /4 台 ロ 8 コー ル ど と シス デム コー ル 


Human68k の DOS コー ル は , MS-DOS の シス テム コー ル ( こ こ で は , Human68k の DOS コー 
ル と MS-DOS の シス テム コー ル の 両方 を 指す 場合 ,、 フ ァ ン クシ ョ ンコ ー ル と 呼ぶ こと に する ) と 
類似 し て いる 部 分 が 多く , 他 の OS (た と えば UNIX な ど ) か ら 移 植 す る 場合 に 比べ , それ ほど 
茸 し く は あり ませ ん . 

し か し 。 MS-DOS が CP/M と いう 別 の DOS と の 互換 性 も 考慮 し て いる 関係 で , シス テム コー 
- ル と DOS コー ル で は 同じ コー ル 番 号 で も , 機能 が まっ た く 違 う 場 合 が あり ます . 機能 が よく 似 て 
いて も 細か い 仕 様 が 違っ て いる 場合 も 多く , 移植 の 際 に は 双方 の ファ ンク ショ ンコ ー ル の マニ ュ 
アル を よく 参照 する 必要 が ある で し ょ う . 

また 。 双 方 の ファ ンク ショ ンコ ー ル の 呼出 し か た は まっ た く 〈 く 異な っ て いま す 。 MS- じ に お ける 
シス テム コー ル の 呼出 し に は , CP/M と の 互換 性 や セグ メン ト の 関係 で bdos, intdos。 intdosx の 
3 種類 の 関数 が 利用 きれ ます . また ,X-C に お ける DOS コー ル の 呼出 し は , 各 DOS コー ル に 対 
し て 個別 に 関数 が 割り 当て られ て いま す . 

以下 で は 。 シ ステ ムコ ー ル を 呼び 出す た め の MS-C の 3 つの 関数 を それぞれ に つい て , どの よう 
な 機能 を 持っ て いる の か を 解説 し ます . 


田 DdOS 関数 の 場合 

bdos 関数 は CP/M コン パチ ブル な シス テム コー ル を 実現 する も の で す . MS-DOS の シス テム 
コー ル (ファ ンク ショ ン 番 号 は 0 $ 25) を 呼び 出し ます . 次 に bdos 関数 の 呼出 し 形式 を 示し ま 
0 
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int bdos (funcno, dxreg, alreg) : 
Int funcno , 
unsigned int dxreg , 


unsigned int alreg , 


funcno に は ファ ンク ショ ン 番 号 を 指定 し , dxreg と alreg に は それ ぞ れ AL レジ スタ と DX レ 
ジス タ (86 系 CPU の レジ スタ ) に セッ ト す る 値 を 指定 し ます . 戻り 値 は シス テム コー ル 終 了 後 の 
AX レジ スタ に 格納 され た 値 で す . 


一 intdOS 関数 の 場合 
intdos 関数 は シス テム コー ル を 直接 呼び 出す 関数 で す . 次 に 呼出 し 形式 を 示し ます . 


int intdos (inregs, outregs) : 
union REGS ※*inregs : 


union REGS ※* outregs , 


inregS に は , シス テム コー ル を 呼 ぶ 際 に セッ ト す べき レジ スタ の 値 を 格納 し て ある 共用 体 の ポ 
イン タ を セッ ト し ます . outregs に は 実行 後 の レ ジス タ の 値 を 格納 する 共用 体 の ポイ ンタ を セッ 
ト し ます . 戻り 値 は シス テム コー ル 実 行 後 の AX レジ スタ の 値 で す 。 

な お , これ ら の 共用 体 と 構造 体 は 。 dos.h と いう イン クル ー ド ファ イル で 定義 きれ て いま す . 


一 intdOSx 関数 の 場合 
intdosx 関数 は 。 intdos 関数 で セグ メン トレ ジス タ も 指定 で きる よう に し た 関数 で す . 次 に その 


呼出 し 形式 を 示し ます . 


int intdos (inregs, outregs, segregS) , 
union _ REGS ※* ネ inregs , 

union _ REGS  ※* outregs : 

struct SREGS ※* segregs , 


第 三 引数 segregs に は , 各 セ グ メ ント レジ スタ の 値 を 設定 し た 構造 体 の ポイ ンタ を セッ ト し ま 
す .。 この と き 。 変更 され る の は ES レジ スタ と DS レジ スタ の み で す . 

さて , これ ら の 関数 に より 実現 され て いる 機能 を X-C で 実現 する に は , シス テム コー ル を DOS 
コー ル に 置き 換え な く て は な り ま せん . そこ で , 最も 使用 頻度 が 高い と 思わ れる intdos 関数 に つ 
いて 。 共 - じ へ 移植 する 方 法 を 解説 し ます . 
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・intdos 関数 の 第 一 引数 が inregs で ある と する と 。 シス テム コー ル の コー ル 番 号 は , inregs 
->h.ah に 格納 され て いる の で 。 それから どの よう な シス テム コー ル を 呼び 出し て いる の か 
を 調べ る 

呼び 出さ れ て いる シス テム コー ル と 同じ 機能 の DOS コー ル を 探し 出す . も し な けれ ば , そ 
の シス テム コー ル の 代わ り と な る プロ グラ ム を 自作 する し か な い 

同じ 機能 の DOS コー ル が あっ た ら , inregs の 指し 示す 共用 体 に 格納 され て いる 引数 も 詩 
べ て 。DOS コー ル の 仕様 に 合わ せ て 書き 換え る ( 表 /.2) 


コー 移 笑 答 対応 する 
Human68k X-C の 関数 


sr 
cowwe 
srrox 
srroe 
srfo7 
srroe 


$FFO9 PRINT 文字 列 の 最後 を 示す 文字 は '$'(Human68k で は $00) 

$FFOA 文字 列 の 最後 の CR( キ ャ リッ ジリ ター ン ) は その まま バッ 
ファ に 格納 され る (Human68k で は $O0 に 書き 換え る ) 

srrop 


KFLUSHGP 
KFLUSHIO 
etC. 


$FFOD FFLUSH 
。 OPEN 。 FCB を 使用 し た ファ イル の オー プン 


CLOSE FCB を 使用 し た ファ イル の クロ ー ズ 
FCB を 使用 し た ファ イル の 検索 (最初 ) 
FCB を 使用 し た ファ イル の 検索 (次 ) 
FCB を 使用 し た ファ イル の 削除 
| READ 。 | FCB を 使用 し た ファ イル か ら の 読込 み 
| wmTE 


と くに Human68k と 異 る MS-DOS の 仕様 


07H 






$FF40 WRITE FCB を 使用 し た ファ イル へ の 書込み 


$FF3C FCB を 使用 し た ファ イル の 作成 
| RENAME FCB を 使用 し た ファ イル 名 の 変更 


ーー 
つ ! 


うう 
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対応 する _ - 
X-C の 関数 と くに Human68k と 異 る MS-DOS の 仕様 


FCB を 使用 する シス テム コー ル に お いて , ディ スク と 入出 
力 す る デー タ を 格納 する バッ ファ の アド レス (DTA) を 指 
定 す る シス テム コー ル 


コー ル 番 号 
Human68k 


1AH 


E 














READ ラン ダム な 読出 し (次 に 読み 出さ れる ファ イル 中 の 位置 が 
読出 し 前 と 読出 し 後 で 変わ ら な い ) 
ラン ダム な 書込み (次 に 書き 込ま れる ファ イル 中 の 位置 が 
| 0 ii 5 書込み 前 と 書込み 後 で 変わ ら な い ) 
| 23W | 一 | 一 パプ | ファ イル サイ ズ の 証人 
SEEK ラン ダム な 読出 し 書込み の 時 の アク セス 位置 を 指定 する 
デム ムコ ヨー 北 
| 25H | SFF25 | mvee | {1{?{?{〔{〔 ぃ …、 ド 〔 ぺ コ WM ロ  /{《{《| 






FCB を 使用 し た ファ イル か ら の 読出 し (複数 の レコ ー ド を 
同時 に 読み 出す こと が で きる ) 

FCB を 使用 し た ファ イル へ の 書込み (複数 の レコ ー ド を 同 
時 に 書き 込む こと が で きる ) 















$FF40 


READ 
WRITE 



















NO 
こ J 





NAMESTS 
GETDATE 年 の 値 そ の も の が 返っ て くる (Human68k で は 1980 を 引い 
た 値 ) 
$FF2B SETDATE 年 の 値 を を の まま 引数 と し て セッ ト す る 
2CH $FF27 GETTIM2 100 分 の 1 秒 単 位 で 読み 出せ る (ハー ドウ ェ ア が サポ ー ト し 
$FF2C GETTIME て いる 場合 に 限る ) 











100 分 の 1 秒 単 位 で 設定 で きる (ハー ドウ ェ ア が サポ ー ト し 
て いる 場合 に 限る ) 


SETTIM2 
SETTIME 


VERIFY 


$FF28 
$FF2D 










FCB を 使用 する シス テム コー ル に お いて , ディ スク と 入出 
力 す る デー タ を 格納 する バッ ファ の アド レス (DTA) を 読 
み 出 す シ ステ ムコ ー ル 


BREAKCK 
INTVCG 
DSKFRE 


国 別 情報 の 読出 し . Human68k に は な い 


RMDIR 
$FF3B CHDIR 
CREATE 
OPEN 
CLOSE 


$FF40 WRITE 


DELETE 


し り 
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コピ P 拓 得 対応 する 


Human68k X-C の 関数 


CHMOD 


IOCTRLGT 


と くに Human68k と 異 る MS-DOS の 仕様 
















IOCTRLST デバ イス ドラ イ バ の 仕様 に 依存 する の で 注意 


etC. 


47H $FF47 CURDIR 


ー リリ プロト ュ * ント ュ っ が 
$FF48 MALLOC 本 ッ ク の セグ メン ト ア ドレ ス が 返っ て 


SFF49 | MFPREE 











$FF4A SETBLOCK 
LOADEXEC 
$FF4B LOAD 
etC. 
SFF4C | EXIT2 VIWIVIVIVWVWVWVWIWIWPWMWPPWPWIMWMWPI II 
sr4p | wm | WW 


FILES コー ル 番 号 1AH で 指定 され る DTA(Disk Transfer Address) 
か ら の 領域 を 使用 する 
NFILES に 






ー ル 番号 1AH で 指定 され る DTA(Disk Transfer Address) 
か ら の 領域 を 使用 する 


表 ノ . 選 シス テム コー ル こ と DOS コー ル の 対応 


それ で は 。intdos 関数 か ら DOS コー ル を 利用 し た 関数 へ の 変換 例 を リス ト 7.1 に 示し ます . 


リス ト プア. ] シス テム コー ル か ら DO コー ル へ の 変換 例 


/* 

* for MS-C 

* ネ / 

#include <stdio.h> 

#ineclude <dosihe で "の の の intdos を 使用 する と き に イン クル ー ド する 必要 が ある 


#define MALLOC 9x48 シス テム コー ル の コー ル 番 号 





char *sample(size) 
unSigned int Si2ei 


union REGS jinregs, outregS: 


inregs.h.ah = MALLOC: 
inTegS.X.bxX = SIZ26:i 


intdos(&inregs, &outregs)i IT シス テム コー ル の 呼び 出し 
if (outregs.X.cflag7 | エラ ー が 発生 し た ら NULL を 返す 
return (char *)NULL: 」 
return (char *)outregs.X.8X) ………… 確保 し た メモ リブ ロッ ク の 先頭 セグ メン ト の 値 を 返す 


バレ エモ モ ケモ セ K モ セ モ t「 サ む O す 0?"? サ ?] ブ ]'《〔』{s《[{itits5 コ コユキ ヤキ ギ 5⑮m ユ うほ は = ほ kk|【t4 レ 4†qq ヒ シモ 5 .  __________ 一 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 
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/* 
* イイ OF XX- じ し 
*/ 
#include <stdio.h> 
#include <doslib.Jh> DOS コ ー ル を 利用 する 場合 は 。 これ を イン クル ー ド し て , コン パイ ル 時 に /Y オ プシ ョ ン を つけ る 
#define ERRCODE 9x81999 李 一 MALLOC の エラ ー コ ー ド の 最小 値 


char *sample(size) 
unSigned int sizei 


char *ptri 


ptr = MALLOCGsize)! の 0 コ ーー 0 

if (ptr >= (char *)ERRCODE) エラ ー が 発生 し た ら NULL を 返す 
return (char *)NULL: 

Feturn DPtTD …… 確保 し レ し た メモ リプ ブロ ッ ク の 先頭 アド レス の 値 を 返す 





ノ .4. ソフ トウ ェ ア 割 込み 

86 系 の CPU に も ソフ トウ ェ ア 割 込み の 機能 が 存在 し て お り , MS-C か ら で も jint86, int86x と 
いう 2 つの 関数 に より , この 機能 が 利用 で きま す . MS-DOS に お ける ソフ トウ ェ ア 割 込み の 用 途 
は ,。 シス テム コー ル の ほか , ROM BIOS 内 の サブ ルー チン を 利用 する な ど が あり ます . つま り 。, 
ソフ トウ ェ ア 割 込み は , DOS どこ ろか ROM な どの ファ ー ム ウェ ア や ハー ドウ ェ ア に も 依存 する 
機能 な の で , 移植 は 非常 に 困難 で す . どう し て も 移植 し な けれ ば な ら な いな ら ば , 移植 する プロ 
グラ ム が 実行 され て いた MS-DOS マシ ン と X68000 双方 の ハー ドウ ェ ア や ファ ー ム ウェ ア の 仕 
様 を よく 調べ , ROM BIOS 内 の サブ ルー チン は X68000 の IOCS コー ル で 代用 する な どの 変更 が 
必要 で す . 


ノ .4.4 ブロ セス の 扱い 


MS-DOS で は , 実行 可能 ファ イル が メモ リ 上 に 読み 込ま れる と , そ の プロ グラ ム の 直前 に PSP 
(Program Segment Prefix) が 作成 され ます . これ は Human68k に お ける プロ セス 管理 ポイ ン 
タ に 相当 し ます が ,。 その 内 容 は まっ た く < 異な る の で PSP を 参照 し て いる プロ グラ ム は 変更 する 
必要 が あり ます . 

また , MS-DOS は 子 プ ロ セ ス 起 動 の 際 に , 親 プ ロ セ ス の 環境 や ファ イル ハン ドル を コピ ー し て 
子 プ ブロ セス に 渡す の で ,。 子 プロ セス が これ ら の 情報 を 変更 し て も 親 プ ロ セ ス に 戻る と き に は も と 
に 戻り ます が 。Human68k の 場合 。 子 プロ セス が 親 プ ロ セ ス か ら 渡 され た 環境 や や ファ イル ハン ド 
ル を 変更 する と , 親 プ ロ セ ス 自 身 の 情 報 も 同じ く 変 更 さ きれ て し まい ます . 

この よう な 違い は DOS レベ ル の 場合 で あり , C 言語 の ライ ブラ リ を 使用 し て 子 プ ロ セ ス を 起 
動 す る 場合 は 互換 性 が 保 た れ て いま す . し た が っ て 。 シス テム コー ル を 利用 し て 子 プ ロ セ ス 起 動 
を 行っ て いる 場合 に は ,。 と くに 環境 や ファ イル ハン ドル の 扱い に つい て の 注意 が 必要 で す 。 


うう 3 オ 


7.5 言語 仕様 の 違い 


フロ 言 計 仕様 の 違い 


X_-C と MS-C で は 言語 仕様 の 違い は それ ほど あり ませ ん . た だ MS-C で は セグ メン ト の 関係 
で 。 ポイ ンタ の 扱い が 面倒 に な っ て いま す . 





Z.5.1 ポイ ンタ の 扱い 

MS-C で は 。 セ グ メ ント の 関係 で ポイ ンタ の 修飾 子 と し て , near 型 , far 型 。huge 型 が あり ま 
す . near 型 の ポイ ンタ は 。 そ の 大 き さ が 16 ビッ ト で ある ポイ ンタ で ,。 far 型 と huge 型 の ポイ ン 
タ は , 32 ビッ ト の 大 き さ を 持っ て いま す . near, far。 huge は 次 の よう に 使わ れ ま す . 


Int near !: 
char far *near S, 
char huge {t[86000」 , 


注意 する こと は , 修 飾 子 が 定め て いる の は 修飾 子 の 右側 の 変数 を 指し 志す ポイ ンタ の 型 で ある , 
と いう こと で す .。 上 の 例 で は , int 型 の 変数 i を 指す ポイ ンタ は near 型 (6 ビ ピット) に なり, char 
型 の ポイ ンタ s は 。 それ 自体 が far 型 (32 ビッ ト ) で , s を 指し 示す ポイ ンタ は near 型 (6 ビッ 
ト ) に な り ま す 。 huee 修飾 子 は 。 大 き さ が 64K バイ ト 以 上 に な る デー タ 項 目 を 指す ポイ ンタ に つ 
ける 必要 が あり ます . その た め , char 型 の 配列 変数 で ある t は , 全 要 素 の 合計 の 大 き さ が 64K バ 
イト 以上 に な る た め 。 huge 修飾 子 を つけ る 必要 が あり ます . 

near。far。huge 修飾 子 が 使わ れる 場合 と し て は , スモ ー ル モデ ル で 64K バイ ト 以 上 の デー タ 
を 扱う と き や 。 ミ ディ アム モデ ル や ラー ジ モ デ ル で 関数 呼出 し を 高速 に 行う と き が あり ます . ま 
た 。huge 修飾 子 は 1 つの セグ メン ト を 超え て し まう デー タ 項 目 に 対し て つけ られ ます . 

X-C の ポイ ンタ の 構造 は こん な に 複雑 で は な く , 単に 指し 示し て いる 変数 の 格納 され て いる ア 
ドレ ス の 値 が ポイ ンタ の 値 そ の も の で す . 

つま り , MS-C と X-C で は ポイ 内 間 栓 半 が まっ る の で , ポイ ンタ その も の の 値 を 
計算 な ど で 利 用 し て いる 場合 に は 注意 が 必要 で す . そう で な けれ は これ ら の 修飾 子 を 取り の ぞ 
くだ け で よい は ず で す . 


フ . 弓 . 〇 アセ ン ブ ラ や その 他 の 言語 処理 系 と の リン ク 


アセ ンプ ブラ で 作成 され た オブ ジェ クト ファ イル を リン ク す る 場合 , 86 系 の アセ ンプ リ 言語 で 記 
述 さ れ た 部 分 は 。 手 作業 で 68000CPU の アセ ン ブ リ 言語 で 記述 し な お さき な けれ ば な り ま せん 。 ア 
セン プリ 言語 で 記述 され だ 部 分 は ハー ドウ ェ ア や DOS に 依存 する 場合 が 多い の で 。C 言語 の 処 
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理系 や DOS。 BIOS。 ハー ドウ ェ ア の 仕様 を よく 見 て 移植 し て くだ さい . 

また , MS-C で は , pascal, fortran と いう 修飾 子 で MS-PASCAL や MS-FORTRAN と 万 換 
性 の ある サブ ルー チン を 作成 する こと が で きま す . pascal, fortran 修飾 子 の 使用 例 を 次 に 示し ま 
す .。 


int pascal pasfunc (int) 


Int fortran fortfunc (int, char *) 


この よう に 宣言 する こと で 。C 言語 で 記述 され た pasfunc 関数 は 。 MS-PASCAL で 記述 され た 
プロ グラ ム か ら , また ,。 同じ く C 言 語 で 記述 され た fortfunc 関数 は 。MS-FORTRAN の 記述 さき 
れ た ブロ グラ ム か ら 呼 び 出 すこ と が で きる よう に な り ま す . ま た 。 逆 に MS-PASCAL で 記述 され 
た pasfunc 関数 を , C 言語 の プロ グラ ム か ら 呼 び 出 すこ と も で きま す . これ ら の 関数 は 通常 の 関 
数 と 比べ 引数 を スタ ッ ク に 積む 順序 が 逆 に な る な どの 違い が あり ます . 

- し へ 移植 する 際 に は , pascal 型 や fortran 型 の 関数 の 実体 が MS-C で 記述 され て いる 場合 
は , これ ら の 修飾 子 を 取り の ぞ き , その 関数 本 体 を X-C 用 に 変更 すれ ば すみ ます . 実体 が PAS- 
CAL や FORTRAN で 記述 され て いる 場合 は , 関数 本 体 を C 言語 で 記述 し な お さ な け れ ば な り 
ま ん 。 


/. 品 イン クル ー ド ファ イル , ライ ブラ リ の 違い 


CPU の 違い に つい で 問題 に な る の が ライ ブラ リ の 違い で し ょ う . た と えば 。, 移植 する も と の 処 
理系 の ライ ブラ リ に は いっ て いた 関数 が 移植 先 の 処理 系 に な けれ ば , 自分 で その 関数 を 作成 し な 
けれ ば な り ま せん . また , その 関数 自体 が 移植 先 の 処理 系 また は DOS, CPU の 制限 に より 作成 で 
き な い 場合 に は ,。 プロ グラ ム の アル ゴリ ズム を 変更 し な けれ ば な ら な いか も し れ ま せん . 

ここ で は , イン クル ー ド ファ イル や ライ ブラ リ に つい て , 移植 する 際 の 問題 を 解説 し ます . 





一 グロ ー バ ル 変 数 


す 。 MS-C で 定義 きれ て いる グロ ー バ ル 変 数 は 表 7.3 の と お り で す . 

IMS- じ の ほう で 定義 S れ て いる osmajor。 osminor は 。DOS の バー ジョ ン を 格納 し て いる だ 
け で す 。 ま た 。environ と doserrno は , MS-C と X-C で は 同じ 名 前 で す 。X-C の マニ ュ ア ル が 
ー 部 違っ て いる の で 注意 し て くだ さい . また , MS-C の _psp に 対応 する も の と し て , X-C で は _ 
FPSF が あり ます が 。 psp は その プロ セス の PSP (プロ セス 管理 ポイ ンタ と 同じ 働き を する ) の 
存在 する セグ メン ト を 指し て いま す . これ に 対し て PSP は その プロ セス の プロ セス 管理 ポイ ン 
タ の 先頭 を 指し て いる の で , 名 前 は 似 て いて も その 内 容 は 違う の で 注意 し て くだ さい . 
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ファ イル 名 変数 の 名 前 と その 型 ファ イル 名 変数 の 名 前 と その 型 


int daylight: Int daylight: 
long timezone : long timezone : 
char * tzname[2]: char * tzname[2]: 


Int doOSerrnOo: 
Int errnO: 
char * sys errlist[ ] : 
char * jSyS errlist[ ] : 
Int SyS nerr: 
EE 













int doOSerrnO: 

Int errnO : 

char * sys errlist[ ] : 
( 注 ) 

Int SyS nerr: 


unSigned Char ※* ネ enVvirOn: 
unSiqgned int_PSP・: 


注 : jsSyS errlist は 日 本 語 の エラ ー メ ッ セ ー ジ を 出力 する た め の 配 列 な の で , X-C で は sys errlist に 置き 換え る こと が で き 





unSigned char OSmajOr: 
unSigned char OSminor: 


Char ネ ※ ネ environ: 
unSigned int _DSD: 


る . 
表 ノ 7.3 グロ ー バ ル 変 数 の 違い 
一 標準 型 
処理 系 に 付属 する イン クル ー ド ファ イル で 宣言 され , 複数 の プロ グラ ム よ り 参 照 さ れる 構造 体 


の こと を 標準 型 と 呼び ます . MS-C に あっ て XX-C に な い ゆい 標準 型 や MS-C と 失 -C で 構造 が 異な る 


標準 型 を 表 7.4 に 示し ます . 
弄り 
備 考 
Eu 


DOSERROR MS-DOS の シス テム コー ル 59H で 返さ れる 値 を 格納 する 


REGS 同じ REGS で も 中 身 は 全く 違う 
な し X-C で は 必要 な い 


stat MS-C で は , これ ら の 構造 体 の メン バ に つい て , typedef し た 
timeb 特別 な 型 を 一 部 で 使用 し て いる の で , 各 イ ンク ルー ド フ ァ イ 
utimbuf ル を 参照 する 必要 が ある 






















表 プ .4 標準 型 の 違い 


標準 型 の 構造 体 メ ン バ を 直接 アク セス し て いる プロ グラ ム は 6 は, 移植 の 際 に 注意 が 必要 で す . MS 
-C と XX-C の マニ ュ ア ル と イン クル ー ド ファ イル で の 宣言 の 内 容 を よく 見 て 移植 し て くだ さい 。 


田 イン クル ー ド し な けれ ば な ら な い フ ァイル の 違い 


MS-C と XX-C で は , 使用 する 関数 が 同じ で も イン クル ー ド すべ き フ ァイル が 違う 場合 が あり 
ます 。 交 礼 や 委 /7.5 だ まとめ ます 。 


うう / 


7 章 MS-DOS か ら の ソフ トウ ェ ア 移 植 


イン クル ー ド ファ イル 名 


MS-C 






crvegr 


MEMORY.H memcpy 関数 や movedata 関数 な ど 
STDLIB.H lsearch 関数 や qsort 関数 な ど 


ーーーー 一 sopen 関数 を 利用 する と き に 必要 


STDARG.H | ーー | 可変 長 引 数 リス ト を 持つ 関数 を サポ ー ト する 











表 ノ . 弓 イン クル ー ド ファ イル の 違い 


MS-C で は 。 ハ ー ド ウェ ア に 依存 する 部 分 に つい て 記述 し た イン クル ー ド ファ イル は 。 イ ンク 
ルー ド パ ス が 指し 示す ディ レク トリ の 下 の SYS と いう ディ レク トリ に 格納 し て ある の が 普通 で 
ます 。 


較 X-C の ライ ブラ リ に な い 関 数 

MS-C の ライ ブラ リ に は 存在 し て も , X※-C の ライ ブラ リ に は な い 関 数 は , 別 の 関数 で 代用 する 
か 。C 言語 また は アセ ンプ ブリ 言語 で その 関数 を 作る し か あり ませ ん . 表 7.6 に 示す 表 は , X-C の 
ライ ブラ リ に な い 関 数 を ピッ クア ッ プ し た も の で す 


| 関 数 名 | 。 動 人 人 
| FPOFF far 型 の ポイ ンタ の オフ セッ ト 部 だ け を 返す 


far 型 の ポイ ンタ の セグ メン ト 部 だ け を 返す 

浮動 小数 点 ス テー タス ワー ド を 読み 込み 。 クリ ア す る 
浮動 小数 点 コ ント ロー ル ワ ー ド を 読み 込み 新た に 設定 する 
fmalloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 
デフ ォ ル ト デ ー タ セグ メン ト 外 に メモ リプ ブロ ッ ク を 割り 付け る 
fmalloc で 割り 当て られ た メモ リブ ロッ ク の 大 き さ を 返す 
浮動 小数 点 演算 関数 パッ ケー ジ を 再 初 期 化す る 
デフ ォ ル ト デ ー タ セグ メン ト 内 に ブロ ッ ク を 割り 付け る こと の で きる 回 数 を 返す 
デフ ォ ル ト デ ー タ セグ メン ト 内 に 割り 付け る こと が で きる プ ブロッ ク の 大 き さ を 返 
calloc, malloc, realoc で 割り 当て られ た メモ リプ ブロ ッ ク の 大 き さ を 返す 
_nmalloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 
デフ ォ ル ト デ ー タ セグ メン ト 内 に メモ リブ ロッ ク を 割り 付け る 
_nmalloc で 割り 当て られ た メモ リブ ロッ ク の 大 き さ を 返す 






















関 数 名 


fpreset 











す 
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_status87 浮動 小数 点 ス テー タス ワー ド を 返す ・ 

bdos MS-DOS の シス テム コー ル を 呼び 出す 

ベッ セル 関数 を 計算 する (実際 の 関数 は j0, j1, jn, y0, y1, yn の 6 つ ) 
文字 列 に お いて , 指定 し た バイ ト 数 の 間 に あ る 文字 数 を 返す ( 湊 字 は 1 文字 ) 

chkctype 1 文字 の キャ ラク タ の タイ プ を 返す 

dieeetomsbin | 倍 精 度 浮動 小数 点数 を IEEE フ ォ ー マ ッ ト か ら マ イク ロ ソ フト ・ バ イナ リフ ォ ー マ ッ ト へ 変換 する 
倍 精 度 浮動 小数 点数 を マイ クロ ソフ ト ・ バ イナ リフ ォ ー マ ッ ト か ら IEEE フ ォ ー マ ッ ト へ 変換 する 
指定 され た MS-DOS シス テム コー ル 59H に よっ て 与え られ た レジ スタ の 値 を 返す 
単 精度 浮動 小数 点数 を IEEE フ ォ ー マ ッ ト か ら マ イク ロ ソ フト ・ バ イナ リフ ォ ー マ ッ ト へ 変換 する 
単 精度 浮動 小数 点数 を マイ クロ ソフ ト ・ バ イナ リフ ォ ー マ ッ ト か ら IEEE フ ォ ー マ ッ ト へ 変換 する 
huge 配列 の た め の メ モリ ブロ ッ ク を 割り 付け る 

halloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 









@ 宮 
8 
FN 










dmsbintoieee 






dosexterr 


nn 。】 
ーー・ 


eeetomsbin 
fmsbintoieee 





ボー ト か ら 1 バ イト 読み 込む 
セグ メン ト を 変更 し た あと で 指定 され た 8086 ソフ トウ ェ ア 割 込み を 発生 させ る 
指定 され た 8086 ソフ トウ ェ ア 割 込み を 発生 させ る 





セグ メン ト を 変更 し た あと て 指定 され た MS-DOS の シス テム コー ル を 呼び 出す 
指定 され た MS-DOS の シス テム コー ル を 呼び 出す 
asctime の 漢字 対応 
ctime の 漢字 対応 
JIS コー ド を シフ ト JIS コー ド (マイ クロ ソフ ト 漢 字 コ ー ド ) に 変換 する 
jstradv 文字 列 の 先頭 か ら 指 定 さ れ た 文字 数 だ け 進 め た ポイ ンタ の 値 を 返す ( 潤 字 は 1 文字 ) 
strpbrk の 漢字 対応 
strncat の 漢字 対応 
strncpy の 漢字 対応 
strrev の 漢字 対応 


ある 文字 列 内 に 含ま れ な い 文 字 が , 別 の 文字 列 に 現れ る と ころ の ポイ ンタ の 値 を 返す ( 澄 字 
対応 ) 


strstr の 漢 字 対 応 
strtok の 漢字 対応 
くっ ュ Fn 












jtoupper 全角 英文 字 を 全角 英 大 文字 に 変換 する 

配列 内 で リニア サー チ を 行う 
| localtime 。 | 整数 値 で 与え られ た 時 間 を 地方 時 に 変換 し た あと で 構 造 体 に 格納 する 
他 の プロ セス か ら の ファ イル アク セス を 禁止 する 
配列 内 で リニア サー チ を 行い , 見 つか ら な けれ ば その 値 を 配列 に 追加 する 
英字 の 大 文字 ノ 小 文字 を 区 別 せ ず に , 2 つの バッ ファ の 内 容 を 比較 する 






lsearch 


を 
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ニニ ニニ 


mtob 文字 列 に お いて , 指定 し た 文字 数 の 間 に あ る バイ ト 数 を 返す (漢字 は 2 バイ ト ) 
文字 列 の キャ ラク タ の タイ プ を 返す 
| onexit | プロ グラ ム 正 常 終了 時 に 実行 する 関数 の 登録 
| outp 。 | ポー ト へ 1 バイ ト 書 き 込む 
| remove 。 | ファ イル を 削除 する 
| rmtmp 。 | tmpfile が 作成 し た 一 時 的 な ファ イル を すべ て 削除 する 
現在 の セグ メン トレ ジス タ の 値 を 構造 体 に 返す 
| sopen 。 | ファ イル を 共有 で きる 形式 で オー プン する 
| spawnlpe 。 | 環境 変数 PATH, 環境 ポイ ンタ , 引数 リス ト , 実行 ファ イル 名 より 子 プ ロ セス 起動 を 行う 
環境 変数 PATH, 環境 ポイ ンタ , 引数 配列 実行 ファ イル 名 より 子 プ ロ セス 起動 を 行う 


alloca に よる ブロ ッ ク 割 付け で 使用 で きる スタ ッ ク の 大 き さ を 返す 


シス テム エラ ー メ ッ セ ー ジ と ユー ザー エラ ー メ ッ セ ー ジ を 結合 ・ 退 避 す る 





英文 字 の 大 文字 小文字 を 区 別 せ ず に 2 つの 文字 列 を 比較 する (strcmpi と 同じ ) 


Mu 2 つの 文字 列 の 最初 の 何 文字 か を 比較 する (strcmpi と 
同じ 

ある 文字 列 内 に お いて , 指定 され た 文字 列 の ある 位置 の ポイ ンタ を 返す 
文字 列 を 倍 精 度 の 値 に 変換 する 

| tempnam | 指定 され た ディ レク トリ に 対す る 一 時 的 な ファ イル 名 を 生成 する 

カレ ント ディ レク トリ に 対す る 一 時 的 な ファ イル 名 を 作成 する 

ファ イル の パー ミッ ショ ンマ スク を 設定 する 

引数 リス ト よ り 引 数 を 検索 する 

引数 へ の ポイ ンタ を リセ ッ ト す る 

引数 リス ト の は じ め に ポイ ンタ を 設定 する 

フォ ー マ ッ ト 化 し た デー タ を スト リー ム に 出力 する 











Vfprintf 


フォ ー マ ッ ト 化 し た デー タ を 標準 出力 に 出力 する 
フォ ー マ ッ ト 化 し た デー タ を バッ ファ に 格納 する 





表 ノ .B X-C の ライ ブラ リ に な い 関 数 


MS-C は 。 と くに セグ メン ト に 関係 し た 関数 と 日 本 語 操作 関数 が 充実 し て いま す . セグ メン ト 
に 関係 し た 関数 は , X-C に は 必要 な いか ,。 あるいは 他 の 関数 で 代用 で きる も の が 多い の で す が 。 
日 本 語 操作 関数 は 自分 で 作成 する し か 方 法 は な いで し ょ う . 
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